Unnamed

#!/usr/local/bin/perl

use Net::Telnet ();
$t = new Net::Telnet();
$t->open(Host => "192.168.1.252",
         Port => "5100",
         Timeout => 0);

$t->waitfor('/exit$/');

exit;


#################################
Example of telnet session


bash-3.2# telnet 192.168.1.252 5100
Trying 192.168.1.252...
Connected to 192.168.1.252.
Escape character is '^]'.
    109       715  07/18 16:49:11 00:00:07 I  4900442