use LWP::UserAgent;

my $url = "http://prism.library.cornell.edu/control/authBasic/authTest/";
my ($servername) = $url =~ m!://([^/]+)!;
my $port = 80;
my $realm = 'User: test Pass:';
my $username = 'test';
my $password = 'this';

my $lwp = LWP::UserAgent->new( );
$lwp->cookie_jar( {} );
$lwp->credentials("$servername:$port", $realm, $username, $password);
my $response = $lwp->get($url);
print $response->as_string;