Select Code to Download

if ($self->can($self->{method}))
{
    my $method = $self->{method};
...
{
    die "Sorry, the method $self->{method} isn't valid!";
}