use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'die', Port=>1810);
$telnet->open('PC110197');
$telnet->errmode(sub{die@_ unless $_[0] =~ /eof/});
@ausg = $telnet->cmd('CLIENT CREATE\n');
print @ausg;
if (@ausg eq "ACK")
{
  print "verbunden!";
}
else
{
  print "nicht verbunden!";
}