#!/usr/bin/perl

$#ARGV==1 || die "Use: copy from-file to-file\n";
open(IN,"<$ARGV[0]") || die "No se puede abrir archivo de entrada\n";
open(OUT,">$ARGV[1]") || die "No se puede abrir archivo de salida\n";

while(<IN>)
  {
	print OUT;
  }