Select Code to Download

$self->{&{\&{$testname}}}->($system); #system is hashref

Use of uninitialized value $self in concatenation (.) or string
Can't call method "_idown" on an undefined value
Can't call method "_idown" on an undefined value

sub method {
    my $self = shift or die join(", ", caller()), "\n";
...
}