Help for this page
my $filename = <STDIN>;
chomp $filename; # remove trailing newline character
open my $handle, '>', $filename;
# ^ if you want to write to that file
open my $handle, '<', 'yourfile.txt';
chomp $line; # remove trailing newline
# do something with $line here.
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (399 votes). Check out past polls.