use strict;
local *FILE;
my $fh = \*FILE;
open $fh, "</etc/passwd" or die;
while (<$fh>) {
    print;
}
__END__