use strict;
use warnings;
use Net::Telnet();

my $host = '10.10.11.5';

my $t = Net::Telnet->new(Host => $host,
                         Timeout => 10,
                         Input_log => *STDOUT,
                         Output_log => *STDOUT,
                        ) or die Net::Telnet::error();

$t->cmd("help") or die $t->error; #das ist Zeile 15
$t->waitfor('/SW2K-FRAFAC-P4_4750>/') or die $t->error;

$t->cmd("cli help") or die $t->error;
$t->waitfor('/SW2K-FRAFAC-P4_4750>/') or die $t->error;