#!/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;