die "Error logging in: $result->code() $result->message()" #### die "Error logging in:\nCode:", $result->code(), "Reason: ", $result->message(), "\n" #### if (defined $ENV{'http_proxy'}) { print "Using HTTP Proxy: $ENV{'http_proxy'}\n"; $agent->proxy(http => $ENV{'http_proxy'}); }