print do {use autodie; open my $fh, '<', 'test.txt'; local $/ = undef; <$fh>};

##</code><code>##

use IO::File;

for my $fh (IO::File->new('foo', 'r')) {
    print $fh->getlines;
} # $fh->close is unnecessary.


##</code><code>##

use IO::File;

print $_->getlines for IO::File->new('foo', 'r');