$|=1; # So it works in the Open Perl IDE
use File::Copy; # import the module

chdir "d:/temp" or die "Couldn't change dir: $!"; # goto the dir with the file

# follow the syntax as explained in Perldoc
copy ("genes.txt","genes_copy.txt") or die "Copying failed: $!";
