t/misc/ptest.pl

   1 #!/local/perl/5.003/bin/perl -w
   2
   3 use lib 'blib/lib';
   4
   5 use LWP::Debug '+';
   6
   7 use LWP::UserAgent;
   8
   9 $ua = new LWP::UserAgent;
  10 $ua->timeout(10);
  11
  12 $req = new HTTP::Request GET => 'http://localhost:3399/foo';
  13 $res = $ua->request($req);
  14
  15 print $res->as_string;
  16