Select Code to Download

open TELNET, "telnet 192.168.1.88 < /dev/tty |";

...
# writes data to mySQL DB

}

use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
$telnet->open('192.168.1.88');