Select Code to Download

#!/usr/bin/perl -w

...
if ($ping->ping($host,2)){
    print "$host is alive";
}else{ print "$host unreachable" }

#!/usr/bin/perl -w

...
}else {
        print "$host is down with $packloss packet loss\n";
}