Select Code to Download

require LWP::UserAgent;
 my $ua = LWP::UserAgent->new;
...
                            'baz' => 'quux',
                                    });
$ua->get($response);

#!/usr/bin/perl -w

...
 print "Success: $response->{success}\n";
 print "Error code: $response->{error_code}\n";
 print Dumper ($response);