use Net::Telnet ();
    $t = new Net::Telnet;
    $t->open("192.168.0.90");
    $t->login("admin", "passwort");
    @lines = $t->cmd("show dsl stat");

@maxrate = grep /Current Attainable Rate/, @lines;