Select Code to Download

sub copy( source, destination ) {
    open SOURCEFILE "source";
...
    close DESTINATIONFILE;
    close SOURCEFILE;
}

open FILE "<$file";

open FILE ">$file";

open FILE ">>$file";