#!/usr/bin/perl -l

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(
    ssl_opts => { verify_hostname => 0 },
    protocols_allowed => ['https'],
);

my $req = HTTP::Request->new( 
    GET => 'https://api.flickr.com/services/rest',
);

my $res = $ua->request($req);
print $res->code;