Help for this page
my $contents = do { local (@ARGV, $/) = $filename; <> };
sub slurp { my ($filename) = @_; ... open my $fh, $filename or die "$filename: $!"; return <$fh> }
www.com | www.net | www.org
No recent polls found