Select Code to Download

my $path = "C:/Documents and Settings/aldaihi/Desktop/Monks";
open (my $fh, '<',"$path/genes.txt") or die ("could not open file $!\n
+");
...
                print $rfh $_,"\n";  
                }
        }