Select Code to Download

use Net::Telnet;
 
...
   print "localhost is active";
   $t->close();
   };

echo "."|telnet localhost 80