Help for this page
my $contents = do { local (@ARGV, $/) = $filename; <> };
sub slurp { my ($filename) = @_; ... open my $fh, $filename or die "$filename: $!"; return <$fh> }
0 1 2 3 4 5 6 7
Results (663 votes), past polls
