use Net::Telnet;
$telnet = new Net::Telnet ();
$telnet->open('PC110197');
print $telnet->cmd('CLIENT CREATE');