#!/usr/bin/perl -w
use strict;
use LWP;
    my $browser = LWP::UserAgent->new;
    $browser -> agent("RouterBot/1.1 ");
    $browser -> credentials('192.168.1.1','TEL','admin' => 'pass');
    $browser -> timeout(10);
    print "Connecting to router:\t(192.168.1.1)\n";