view release on metacpan or  search on metacpan

bin/client.pl  view on Meta::CPAN

#!/usr/bin/perl

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10);
$t->open(Host=>"localhost",Port=>9999);

while(1) {
	print "OMLsql> ";
	$cmd = <STDIN>;
	chomp $cmd;
	$cmd eq 'quit' and last;
	$t->print($cmd);
	$n = $t->getline;
	chomp $n;