Sub Name

[Balint, Jess]

Hi all. Is there a way to get a subroutine name into a string? Thanks.
Jess

sub jess{ }

sub name{
        $subref = shift;
        print $subref;
}

name( \&jess );

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]