sub load_data { my $self = shift; $self->{$0} = 'data i created'; } [download]
In reply to How can a subroutine get its name? by princepawn