#!/usr/bin/perl
  
  use Image::Magick;
  use Flickr::API;
  use XML::Parser::Lite::Tree::XPath;
  
  $apikey\; =\; \text{'}YOUR-API-KEY\text{'};$apisecret = 'YOUR-API-SECRET';
  
  # Replace this with your NSID
  $myNSID\; =\; \text{'}50317659@N00\text{'};$flickr = new Flickr::API(
    {
      'key'    => $apikey,\; \text{'}secret\text{'}\; =>$apisecret,
    }); 
  
  $response\; =$flickr->execute_method('flickr.photos.search', 
    {
      'user_id' => $myNSID,\; \text{'}per\_page\text{'}\; =>\; 1,\; \text{'}page\text{'}\; =>\; 1,\; \});\; my$xpath = new XML::Parser::Lite::Tree::XPath($response->\{\text{'}tree\text{'}\});\; @photos\; =$xpath->select_nodes('/photos/photo');
  
  $image\; =\; Image::Magick->new;\; if\; ($#photos >= 0)
  {
    $photo\; =$photos[0];
    $url\; =\; \text{'}http://static.flickr.com/\text{'}.$photo->{'attributes'}->{'server'} . '/' 
       . $photo->\{\text{'}attributes\text{'}\}->\{\text{'}id\text{'}\}\; .\; \text{'}\_\text{'}\; .$photo->{'attributes'}->{'secret'} 
       . '_s.jpg';
    $image->Read($url);
  }
  
  $compositeImage\; =\; Image::Magick->new;$compositeImage->Set(size=>'85x85');
  $compositeImage->Read(\text{'}xc:black\text{'});$compositeImage->Composite(image => $image->[0],\; compose\; =>\; \text{'}Copy\text{'},\; x\; =>\; 5,\; y\; =>5);$compositeImage->Write(filename => 'image.jpg', quality => 85);