You need to open a file and direct ouput to it:

my $output_file = "script_out.txt";

open(FILE,">$output_file") or die "Unable to open $output_file for wri
+ting: $!";

print FILE "This will go to the file.\n";
print "This will go to browser.\n";

select FILE;
print "This will go to the file, too.\n";
print STDOUT "This will go to the browser.\n";
[download]

TGI says moo