my $ua;
  my $url;
  my $request;
  my $response;
  my $timeout = 60;

  $ua = LWP::UserAgent->new();
  $ua->agent("DMC-Monitor/1.0");

  $request = new HTTP::Request("GET", "$url");
  print "\$request=|$request|\n";

  $response = $ua->timeout($timeout);
  print "\$response=|$response|\n";

  $response = $ua->request($request);  # <== Hangs here
  print "\$response=|$response|\n";