Select Code to Download

foreach my $host_num ( 0..num_hosts()-1 ) {
    print "[$host_num] ", hostname_by_num($host_num), "\n" ;
}

use Scalar::Util qw(looks_like_number);

...

    return exists $HOSTS[$num] ? $HOSTS[$num] : undef;
}

sub choose_host {
    my $chosen_host;
...
    }
}

sub ssh_string {
    my $host = shift;
...
        $host,
        domain();
}