Select Code to Download

sub print_menu 
{
...
    print "$_\t", $href->{$_}, "\n"
        for ( sort keys %{ $href } );
}