1 #!/usr/local/bin/perl -w
6 require "net/config.pl";
8 require LWP
::UserAgent
;
10 $url = "http://$net::httpserver$net::cgidir/moved";
12 #LWP::Debug::level('+trace');
14 my $ua = new LWP
::UserAgent
; # create a useragent to test
15 $ua->timeout(30); # timeout in seconds
17 my $request = new HTTP
::Request
('GET', $url);
19 print $request->as_string;
21 my $response = $ua->request($request, undef, undef);
23 print $response->as_string, "\n";
25 if ($response->is_success) {
34 $dummy = $net::httpserver
;
35 $dummy = $net::cgidir
;