use Net::Telnet;
use strict;
my $filename;
my $obj;
my $telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
my $fh = $obj->dump_log($filename);
my $telnet->open('PC110197');
my $telnet->errmode(sub{return@_ unless $_[0] =~ /eof/});
my @ausg = $telnet->cmd('CLIENT CREATE');
print @ausg;

use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
$fh = $obj->dump_log($filename);
$telnet->open('PC110197');
$telnet->errmode(sub{return@_ unless $_[0] =~ /eof/});
@ausg = $telnet->cmd('CLIENT CREATE');
print @ausg;

Can't call method "dump_log" on an undefined value at prog.pl line ....

use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
$fh = $telnet->dump_log($filename);
$telnet->open('PC110197');
$telnet->errmode(sub{return@_ unless $_[0] =~ /eof/});
@ausg = $telnet->cmd('CLIENT CREATE');
print @ausg;

> 0x00000: 43 4c 49 45  4e 54 20 43  52 45 41 54  45 0d 0a     CLIENT CREATE..

< 0x00000: 41 43 4b 00                                         ACK.

< 0x00000: 45 54 49 4d  45 4f 55 54  00                        ETIMEOUT.

$telnet -> cmd ('\n') ???

$telnet -> cmd ("\n") ???

use Net::Telnet;
$telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
$fh = $telnet->dump_log($prog.pl);
$telnet->open('PC110197');
$telnet->errmode(sub{return@_ unless $_[0] =~ /eof/});
@ausg = $telnet->cmd('CLIENT CREATE');
$telnet->cmd("\n");
print @ausg;

#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet;

my $telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
my $fh = $telnet->dump_log( 'test.log' );

$telnet->open('PC110197');
$telnet->errmode( sub{ return @_ unless $_[0] =~ /eof/ } );

my @ausg = $telnet->cmd('CLIENT CREATE');
my $data = $telnet->buffer;

print $$data;

ACK ETIMEOUT

if ($date eq "ACK")
{
  print "verbunden";
}
else
{
print "nicht verbunden";
}

# ...
my $data = $telnet->buffer;
my ($ack, $other) = split /\0/, $data;
print "ACK: $ack -- OTHER: $other\n";
#...