1 sub firstline { 
2    open( my $in, shift ) 
3      && return 
4        scalar <$in>; 
5    # no close() required 
6 }