#!/usr/bin/perl -w

 use Flickr::API;
use Data::Dumper;


require LWP::UserAgent;
 my $ua = LWP::UserAgent->new;
$ua->proxy('http', 'http://wwwcache.aber.ac.uk:8080/');


my $api = new Flickr::API({'key' => ''}); #there is normally an API key here

my $response = $api->execute_method('flickr.test.echo', {
                            'foo' => 'bar',
                            'baz' => 'quux',
                                    });
$ua->get($response);

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