|
#!/usr/bin/perl -w
use strict;
my $source = shift @ARGV;
my $destination = shift @ARGV;
open(IN, '<', $source) or die "Can't read source file $source: $!\n";
open(OUT, '>', $destination) or die "Can't write on to file $destination: $!\n";
print "Copying $source to $destination\n";
while (<IN>) {
print OUT $_;
}
close IN;
close OUT;
|