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