Help for this page
my $content = do { open my $fh, '<', $file or die "Couldn't open $file: $!\n"; local $/ = undef; <$fh>; };
my $content; { ... local $/ = undef; $content = <$fh>; }
my $content = sub { my $file = shift; ... local $/ = undef; return <$fh>; }->($file);
ok 1; ... } ok 3;
www.com | www.net | www.org
No recent polls found