It would seem that given the new (to me) my in open you don't even need IO::File anymore...

use strict;
my $in;
SCOPE: {
open my $in, "/etc/passwd" or die $!;
print "", scalar <$in>, "\n";
}
print "(nothing?): ", scalar <$in>, "\n";
[download]