Select Code to Download

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'});
}