#!/usr/bin/perl
package Net::Analysis::Listener::HTTPDump;

use strict;
use warnings;
use base qw(Net::Analysis::Listener::Base);

sub http_transaction {
    my ($self, $args) = @_;
    my ($response) = $args->{resp};      
    my ($req)       = $args->{req};
    warn "URI: " . $req->uri() . "\n";
    print $response->content();
}

1;