Select Code to Download

$| = 1; # turn on autoflush
print "Enter file name: ";
my $answer = <STDIN>;
chomp $answer; # remove newline char from answer
print "file name is '$answer'\n";