$ua = LWP::UserAgent->new(use_eval => 0);
.
.
eval {
  $response = $ua->request($request);
};
if ($@) {
  #print "eval: " . $@ . "\n";
  if ($@ =~ /Connection refused/) {
    print "Response Content...\n";
    print $response->content . "\n";
  } else {
.
.