use LWP::UserAgent; 
use IO::Socket::SSL;
use strict;
use warnings;

my $ua  = LWP::UserAgent->new (); 
$ua->ssl_opts(
    verify_mode   => SSL_VERIFY_PEER,
    verify_hostname => 0,                # Überprüfung des Zertifikats abschalten
);
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 $res->headers_as_string;