inoltre consiglio:

use File::Copy;
copy("file1","file2") or die "Copy failed: $!\n";