$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 {
.
.

##</code><code>##

(print "eval: " . $@ . "\n";)

##</code><code>##

eval: Can't read entity body: Connection reset by peer at /usr/local/lib/perl5/site_perl/5.005/LWP/Protocol/http.pm line 337.