Select Code to Download

use autodie;
my $filename = <STDIN>;
chomp $filename;     # remove trailing newline character
open my $handle, '>', $filename;
#                 ^  if you want to write to that file

use autodie;
open my $handle, '<', 'yourfile.txt';
...
     chomp $line;  # remove trailing newline
     # do something with $line here.
}