#!/usr/bin/perl
use strict;
use Net::Telnet;

my $passwort='12345'; #;-)

# Verbindung zum Router
my $host = new Net::Telnet(Timeout => 30, Prompt => '/^>/');
$host -> open("192.168.1.250");

# Auf Passoworteingabeauffordeung warten
my ($back,$match) = $host -> waitfor('/Passwort:/');
print $back.$match;

# Passwort übertragen 
$host -> print("$passwort\n");
print "$passwort\n";

# Loginmeldungen überspringen
my $msg='';
($back,$match) = $host -> waitfor('/>/');
$msg=$back.$match;
($back,$match)= $host -> waitfor('/>/');
$msg.=$back.$match;
print $msg;

# Aktulle Internet-IP des Routers lesen
$host -> print("dir /Status/PPP-Statistik/Rx-Optionen/IPCP\n");
print "dir /Status/PPP-Statistik/Rx-Optionen/IPCP\n";

# IP
($back,$match) = $host -> waitfor('/>/');
print "3:\n---------------\n".$back."\n--------------\n$back\n";

# verbindung zum Router beenden
$host -> close();
print "exit\n";
exit(0);