#!perl -w
use strict;
use LWP;

my $browser = LWP::UserAgent->new();
my $response = $browser->get("http://localhost:8080/index.html");
if($response->is_success()) {
  print "Success\n";
} else {
  print "Failure\n";
}
print "Response: ".$response->as_string();