use LWP::UserAgent;

my($DEBUG,$proxy,$user,$pwd,$timeout,$VPO)= &get_options;


if ($proxy eq '') 
 {
  print " No Proxy Server specified\n" if ($DEBUG);
  $proxy='<noproxy>';
  $ua=LWP::UserAgent->new;
  $ua->timeout($timeout) if(defined($timeout));
  $req=HTTP::Request->new(GET=> "$url");
  $res= $ua->request($req);
  print "$url---url\n" if($DEBUG);
  print "status=",$res->status_line,"\n" if($DEBUG);
  print "is_success=",$res->is_success,"\n" if($DEBUG);
 }