Flickrで写真の拡張子を取る

#!/usr/bin/perl
use strict;
use warnings;
use Flickr::API;
use XML::Parser::Lite::Tree::XPath;

my $photo_id = shift or die;
my $api = Flickr::API->new({
    key => $ENV{FLICKR_KEY},
    secret => $ENV{FLICKR_SECRET},
});
my $res = $api->execute_method(
    'flickr.photos.getSizes',
    {   
        photo_id => $photo_id,
    }
);
if ($res->{success}) {
    my $xpath = XML::Parser::Lite::Tree::XPath->new($res->{tree});
    my $node = ($xpath->select_nodes('/sizes/size'))[-1];
    my $source = $node->{attributes}->{source};
    (my $ext) = ($source =~ m{\.(\w+)$});
    print "$ext\n";
}

こんなんしかないんかなぁ。もっと環境に易しい方法はないものだろうか。と、→というか、一枚ずつapi叩くんじゃなくて、photo_idを複数渡すとまとめて返してくれるとか、そういうやつがないんかな、と。→これみるとoriginalformatがなければjpgでいいみたいね。ちょっとまじめに調べればわかるじゃないすか。まったくもー。→でも解決になってない件→あ！feedつかえばいんじゃね？と思ったけど件数がすくないな。→指先が冷えてきた