Select Code to Download

           sub myopen {
               open my $fh, "@_"
...
               print <$f>;
               # $f implicitly closed here
           }

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$