gistfile1

#!perl
# Dumping a Twitter request/response

my $nt = Net::Twitter->new(%options);

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

print "Request:\n",
      $res->request->as_string,
      "\n\nResponse\n",
      $res->as_string;