[snip header, locations, comments, and other fluff]
use LWP::Simple;
require LWP::UserAgent;

# First, let's get the data from the web server.

$ua = LWP::UserAgent->new();
$ua->agent("Argus Remote Waterfall v.01a");
$ua->timeout ($timeout);
my $response = $ua->get($fetchpage);

foreach(split(//,$response)) {
  if (!$response->is_success) {
       die $response->status_line;
  }
  printf("%01x ", ord($_));
  print "\n" if $_ eq "\n";
}