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

##</code><code>##

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