use strict;
use warnings;
use IO::Socket::SSL qw(debug3);
use LWP::UserAgent; 
use Mozilla::CA;

IO::Socket::SSL::set_ctx_defaults( 
        SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE,
        SSL_ca_file => Mozilla::CA::SSL_ca_file(),
);

my $ua  = LWP::UserAgent->new (); 
my $req = HTTP::Request->new(
    GET => 
        'https://api.flickr.com/services/rest/?method=flickr.auth.getFrob&api_key=df2c4935d4a2dedb9e618f400e808b4c&format=rest&auth_token=72157651265610617-7929d0e254995744&api_sig=8b0edba90343f1593dcb14ad39ce07d7'
);

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

print $req->as_string;

print $res->status_line, "\n";

print $res->headers_as_string;