t/misc/robot

   1
   2 require LWP::RobotUA;
   3
   4 $ua = LWP::RobotUA->new('testbot/1.0', 'aas@sn.no');
   5
   6 print $ua->as_string;
   7
   8 use LWP::Debug qw(+ -conns);
   9
  10 $req = HTTP::Request->new(GET => "http://localhost:8080/");
  11
  12 $res = $ua->request($req);
  13 print $res->as_string;
  14
  15 $res = $ua->request($req);
  16 print $res->as_string;