--------------------------------------------------------

use HTTP::Request;
use LWP::UserAgent;
$req = HTTP::Request->new($httpRequestMethod => "http://192.168.1.1/");
$ua=LWP::UserAgent->new;
$response=$ua->request($req);
sleep 10;
$req->authorization_basic("admin","password");
sleep 10;
$content= s/202.36.7.8/202.36.7.8/;
$response->$content;
exit;

------------------------------------------------------------

##</code><code>##

-----------------------------------
Not a CODE reference at (eval 8) line 1.
------------------------------------------------------------