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