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