Select Code to Download

print "my header ...\n";
while (<FILE>){
    ...

...
open OUTFILE, ">", "outfile.txt" or die $!;
...
while (<FILE>){
    print OUTFILE join("\t", map { $_ * $df * 50 } split /\t/), "\n";
}