sub firstline {
	open( my $in, shift ) && return scalar <$in>;
	# no close() required
    }