use strict;
use LWP::UserAgent;

my $url = '[URL=http://gaga]http://gaga[/URL]:er@192.168.10.1/';
my $agent = LWP::UserAgent->new;
$agent->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
my $request = HTTP::Request->new("GET", $url);
my $reply = $agent->request($request);
print $reply->content();