
unless (@ARGV == 2) { die "Usage: $0 source destination\n" }
($infile, $outfile) = @ARGV;
unless (open SOURCE, "<", $infile) {
  die "Couldn't open source file $infile: $!; aborting";
}
unless (open DEST, ">", $outfile) {
  die "Couldn't open destination file $outfile: $!; aborting";
}
while (<SOURCE>) {
  print DEST $_;
}





