http://www.perlmonks.org?node_id=931570


in reply to Re: Switch Module on Perl 5.8.0
in thread Switch Module on Perl 5.8.0

This is the output from Deparse when the 'use Switch' is commented out. 
die "Error: $!" unless open my $fh, '<', '/tmp/test_file.txt';
while (defined(my $line = <$fh> )) {
    print "$line\n";
}
close $fh;

[download]
When I saw this, I thought maybe the Switch module was adding the File::Glob statement but when I scanned the Switch module, I didn't immediately see why it would even do such a thing.

In Section Seekers of Perl Wisdom