#!/usr/bin/perl
 
require LWP::UserAgent;

my $request_uri = '';
#my $ua = LWP::UserAgent->new;
my $ua = new LWP::UserAgent;
#$ua->protocols_allowed( [ 'http','https'] );
$ua->ssl_opts( verify_hostnames => 0 );
print "line 10 of script\n";
$ua->add_handler("request_send",  sub { shift->dump; return });
print "line 12 of script\n";
$ua->add_handler("response_done", sub { shift->dump; return });

#$ua->timeout(10);

$request_uri = 'https://api.flickr.com/services/rest/?method=flickr.auth.getFrob&api_key=df2c4935d4a2dedb9e618f400e808b4c&format=rest&auth_token=72157651265610617-7929d0e254995744&api_sig=8b0edba90343f1593dcb14ad39ce07d7';

my $response = $ua->get($request_uri);

#print $response->status_line;
   
print $response->decoded_content;