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

Can't locate object method "new" via package "Net::Telnet" (perhaps you forgot t
o load "Net::Telnet"?) at prog.pl line 2.

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

command timed-out at prog.pl line 4

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

print $telnet->cmd('CLIENT CREATE');

ACK

    $obj = new Net::Telnet ([Binmode    => $mode,]
                            [Cmd_remove_mode => $mode,]
                            [Dump_Log   => $filename,]
                            [Errmode    => $errmode,]
                            [Fhopen     => $filehandle,]
                            [Host       => $host,]
                            [Input_log  => $file,]
                            [Input_record_separator => $chars,]
                            [Option_log => $file,]
                            [Ors        => $chars,]
                            [Output_log => $file,]
                            [Output_record_separator => $chars,]
                            [Port       => $port,]
                            [Prompt     => $matchop,]
                            [Rs         => $chars,]
                            [Telnetmode => $mode,]
                            [Timeout    => $secs,]);

...

The default Prompt is '/[\$%#>] $/'