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