Select Code to Download

use strict; 

...
        }
}
close(DUMP);

use strict;

...
        tr/\x1F-\x7E\r\n//cd;
        $pkt .= $_;
}

use strict;
use Net::Pcap;
...
               hdr->{len} $hdr->{caplen} \n";
        $count++;
}