use strict; use warnings; use Flickr::API; use Perl6::Say; use XML::LibXML; my $key = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'; my $secret = 'XXXXXXXXXXXXXXXX'; my $id = shift or die; my $api = Flickr::API->new({ key => $key, secret => $secret, …