#!/usr/bin/perl
use strict;use diagnostics;use warnings;
use Getopt::Long;
use HTML::TreeBuilder;
use LWP::Simple;
use vars qw/$url/;
use File::Temp;
GetOptions(\'--url=s\' => \\$url) or die("Error in command line arguments\\n");
die "invalid url" unless $url =~ m@https://www.flickr.com/photos/[a-z]+/[0-9]+/sizes/@;
my $h = HTML::TreeBuilder->new_from_url($url);
my $image_uri = $h -> look_down(\'_tag\' => \'link\', \'rel\' => \'image_src\', sub {
return $_[0]->attr(\'href\');
});
print $image_uri->{\'href\'};
print "\\n";