Select Code to Download

# option 1
print "Enter the name for the output file:\n"; 
...

my $outfile = (basename $0).'.out';