#print("RcvPkt Totlen(PacketLen) $hdr->{len}($hdr->{caplen})" .
    #  "\t Time.Usec=$hour:$min:$sec.$hdr->{tv_usec}\n");