#!C:/Perl/bin/perl.exe
use LWP;

$site[0] = "http://searchjid.usa.np.community.playstation.net/basic_view/func/search_jid";
$site[1] = "http://searchjid.eu.np.community.playstation.net/basic_view/func/search_jid";
$site[2] = "http://searchjid.jpn.np.community.playstation.net/basic_view/func/search_jid";
$user = "c7y-basic01";
$pass = "A9QTbosh0W0D^{7467l-n_>2Y%JG^v>o";

for ($i=0; $i<@site; $i++)
 {
  $browser = LWP::UserAgent -> new;
  $browser -> agent("PS3Community-agent/1.0.0 libhttp/1.0.0");
  $browser -> credentials("searchjid.usa.np.community.playstation.net/basic_view/func/search_jid:80","c7y-basic",$user=>$pass) . "\n\n";
  print $browser -> head($site[i]) -> as_string . "\n\n";

  # ------ alternate method ------
  # $browser = LWP::UserAgent -> new; 
  # $browser -> agent("PS3Community-agent/1.0.0 libhttp/1.0.0"); 
  # $req = HTTP::Request -> new(GET => $site[$i]); 
  # $req -> authorization_basic($user,$pass); 
  # print $browser -> request($req) -> as_string . "\n\n"; 
  # ------------------------------
 }

##</code><code>##

HTTP/1.1 401 Authorization Required
Connection: close
Date: Sat, 21 Apr 2012 03:54:44 GMT
WWW-Authenticate: Digest realm="c7y-basic", nonce="XXXXXXX+BAA=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", algorithm=MD5, qop="auth"
Content-Type: text/html; charset=iso-8859-1
Client-Date: Sat, 21 Apr 2012 03:54:47 GMT
Client-Peer: 198.107.128.164:80
Client-Response-Num: 1