Select Code to Download

require LWP::UserAgent;

...
    "Webserver Up" :
    "Webserver Down";

sub check {
...
    $telnet->close();
}