...
 Net::Pcap::loop( $pcap, -1, \&pkt_proc, "$filename" );
...
 my $tv_usec = $hdr->{'tv_usec'};
...