Select Code to Download

my $method = $method_and_structure[@method_and_structure-1];

my $method = $method_and_structure[-1];

my $method = (split '::', $AUTOLOAD)[-1];

...
####

(my $method = $AUTOLOAD) =~ s/.*:://;