use Net::PcapUtils;
use NetPacket::IP;
use NetPacket::TCP;
use NetPacket::Ethernet qw/:types/;
use strict;

Net::PcapUtils::loop(
    sub {
        my ($arg, $header, $packet) = @_;
        my $ethernet = NetPacket::Ethernet->decode($packet);
        if ($ethernet->{'type'} == ETH_TYPE_IP) {
            my $ip = NetPacket::IP->decode($ethernet->{'data'}, $ether
+net);
            my $tcp = NetPacket::TCP->decode($ip->{'data'});

            print
                $ip->{'src_ip'}, ":", $tcp->{'src_port'}, " -> ",
                $ip->{'dest_ip'}, ":", $tcp->{'dest_port'}, "\n\n";

            my @data = split //, $tcp->{'data'};
            while (@data) {
                print "\t";
                for (0..7) {
                    print sprintf("%02x", shift(@data)), " ";
                }
                print "\n";
            }
            print "\n";
        }
    },
    'DEV'       =>  'lo'
);
[download]