use Net::Telnet ();
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'die', Port=>1810);
$telnet->open('PC110197');
print $telnet->cmd('CLIENT CREATE');