$ cat wwwPerl.pl 
#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url = "http://localhost/testauth/testauth.html";

$mech->get( $url );

print $mech->content();