#!/usr/bin/perl

$LIMIT = shift || 5000;

$|=1;
open (STDIN,"/usr/sbin/tcpdump -lnx -i eth1 -s 1500 |");
while (<>) {
    if (/^\S/) {
    	print "$packet\n";
	print "$_\n";
	$packet = "";
	$_ = "";
    }
    s/\s+//;
    s/([0-9a-f]{2})\s?/chr(hex($1))/eg;
    tr/\x1F-\x7E\r\n//cd;
    $packet .= $_;
}