#!/usr/bin/perl -w

use HTTP::Request;
use LWP::UserAgent;
use threads;

my $TEST_URL = "http://www.blairhippo.com/";

for (my $i = 0; $i < 500; $i++) {
  my $thread = threads -> create ('execute_request', $TEST_URL);
  $thread -> detach();
}

print "If you can read this line, I have run to completion and failed to fail.  Which makes my success a failure.  I'm so emo.\n";

sub execute_request {
  my $url = shift;
  my $request = HTTP::Request -> new ('GET', $url);
  my $agent = LWP::UserAgent -> new();
  my $response = $agent -> request($request);
}