sub pass_isValid{
  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(POST =>'http://mysite.com/secure/test.html');
  $req->authorization_basic('htusername', 'htpassword');
  print $ua->request($req)->as_string;
}