Select Code to Download

my $target = "/tmp/whatever";
open (OUTFILE, ">$target") or die "Could'nt open $target:$! \n";
print OUTFILE $file;
close;