my $hostname="xxxxxxxxxxxxxxxxxxxxxxx";
    my $username="xxxxx";
    my $passwd="xxxxxxxxxxxxxxx";
    my $obj = new Net::Telnet (Timeout => 100, Prompt => '/[%#>] $/');
    $obj->open($hostname);
    $obj->login($username, $passwd);
        # mein Widget
    $logwin->insert('end', $obj->input_log );
    
    $obj->cmd("test.pl");