use HTTP::Request;
use LWP::UserAgent;
use strict;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST=>'http://192.168.0.1/authtest/index.html');
$req->authorization_basic('yourname', 'password');
my $content = $ua->request($req)->as_string;
print "Content is $content";