my $session = Net::Telnet->new  (Host => $ip,
                                Timeout => "30",
                                Input_log => "/debug/".$ip."_input.log",
                                Output_log => "/debug/".$ip."_output.log",
                                errmode => \&errorhandler
                                );
        # Einloggen
        $session->login('user', 'password');
        # Einlesen der Befehle
        $noscreen = "/srv/www/noscreen.cfg";
        open(NO, "<$noscreen");
        while ($zeile = <NO>)
        {
                sleep 2;
                $session->cmd($zeile);
        }
        close (NO);
        $session->close;