Write Gzip Encoded HTTP as Inflated in PCAP File

I found a way to extract what I needed which was SOAP XML traffic to/from a Web service. I wrote a simple Perl script that uses some very handy modules that I found.

#!/usr/bin/perl

use strict;
use Net::Pcap;
use Net::PcapUtils;
use NetPacket;
use NetPacket::IP;
use NetPacket::Ethernet qw(:strip);
use Sniffer::HTTP;

my $VERBOSE = 0;

my $sniffer = Sniffer::HTTP->new( 
  callbacks => {
    request  => sub { my ($req, $conn) = @_; print $req->as_string,"\n" if $req },
    response => sub { my ($res, $req, $conn) = @_; print $res->decoded_content,"\n" },
    log      => sub { print $_[0] if $VERBOSE },
    tcp_log  => sub { print $_[0] if $VERBOSE > 1 },
    }
);

sub process_pkt
{
  my ($usr, $hdr, $pkt) = @_;
  my $eth_obj = NetPacket::Ethernet->decode($pkt);
  $sniffer->handle_eth_packet($pkt);
}

my $err;
my $pcap = Net::Pcap::open_offline("$ARGV[0]", \$err)
  or die "Unable to open pcap file: $err\n";
Net::Pcap::loop($pcap, -1, \&process_pkt, '');
Net::Pcap::close($pcap);