Select Code to Download

#!/usr/local/bin/perl -w

...
{ print "Yay!"; }
else
{ print "Login failed: " . $ua->response->status_line; }