Select Code to Download

$ua = LWP::UserAgent->new(use_eval => 0);
.
...
  } else {
.
.

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

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