Select Code to Download

#
# Generalize to multiple ips
...
    print $ip, "\n";
    last if eval {`ping $ip`; 1};
}