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

while (<TELNET>){

# writes data to mySQL DB

}

##</code><code>##

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