Select Code to Download

sub get_coderef {
    my $subname = shift;
    my $coderef;
...
    $coderef = *{"$subname"}{CODE};
    return $coderef if ($coderef and defined(&$coderef));
}

#!/usr/bin/perl -w

use strict;
...
} else {
    print "Not defined!\n";
}