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





