gistfile1.pl

#!/usr/bin/perl
# Accessing the HTTP::Response object on successful Net::Twitter API calls
use warnings;
use strict;

use Net::Twitter;

my $nt = Net::Twitter->new(netrc => 1, legacy => 0);

my $response;

$nt->ua->add_handler(response_done => sub { $response = shift });

my $r = $nt->user_timeline({ count => 1 });
warn $response->headers->as_string, "\n";

exit 0;