open my( $fh ), '<', $$lnameref;
    while( my $_ = <$fh> )