use LWP;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new();
my $resp = $ua->request(GET 'http://192.168.0.1/admin.cgi');
if($resp->is_success){ # returned 200; request sent/page received
     print $resp->content; #content of page returned, check this
}  #to see if it looks like your router's "settings changed" page.
else{
     print "Couldn't fetch page. Something's wrong!!!\n";
}