$ perl -w copy.pl
cp: cannot stat `foo.txt': No such file or directory