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


my $host = '10.10.1.5';

my $t = new Net::Telnet (Timeout => 10, 
                      Input_log => *STDOUT, 
                      Prompt => '/bash\$ $/'
                     ); 
$t->open("$host"); 
print STDERR "connected...\n";
my @lines = $t->cmd("help"); 
print @lines; 
        
@lines = $t->cmd("cli help"); 
print @lines; 

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;

$input = lc $input;
    if ($input ne "")
      {
        $t->print("$input");
        $line = $t->getline;
      }

use strict;
use warnings;

my $input = "";

while ( $input eq "" ) {
    print "input: ";
    $input = <STDIN>;
    chomp $input;
}

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

my $host = '10.10.1.5';
my $input = "";

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

$t->print("help");
my $line = $t->getline;
&connected;

sub connected
   {
    $t->waitfor(-match => '/SERVER_4711>/',
                -errmode => "return",
               ) or die "problem connecting to host: ",
    $t->lastline;
    #while ($input eq "")
    #     {
           $input = <STDIN>;
           $input = lc $input;
           chomp $input;
           $t->print("$input");
           $line = $t->getline;
           $t->lastline;
     #    }
          &connected;
   }

$t->print("help");
push my @line, $t->getline;
print "@line\n";

my @lines;
while(my $line = $t->getline){
  push(@lines,$line);
}
print $_ for(@lines);