Select Code to Download

use Scalar::Util qw( looks_like_number );
use List::Util qw( first );
...
if ( !defined $picked ) {
    die "What do you mean by '$input'?";
}

use Scalar::Util qw( looks_like_number );
use List::Util qw( first );   
...

# "call" the menu item
$picked->{handler}->();