...
open(SOURCE, $source) or die "Cannot open source
";
open(DEST, ">", $dest) or die "Cannot open destination file
";

while(<SOURCE>) {
    print DEST $_;
}
...