LWP browser test

test-lwp.pl

#!/usr/bin/env perl

# Simple LWP browser for testing
$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;

use LWP::UserAgent;
 $ua = LWP::UserAgent->new;
 $ua->agent("$0/0.1 " . $ua->agent);
 # $ua->agent("Mozilla/8.0") # pretend we are very capable browser

 $req = HTTP::Request->new(GET => $ARGV[0]);
 $req->header('Accept' => 'text/html');

 # send request
 $res = $ua->request($req);

 # check the outcome
 if ($res->is_success) {
    print $res->content;
 } else {
    print "Error: " . $res->status_line . "\n";
 }