my %protocol_cache = (
    1 => 'icmp',
    6 => 'tcp',
    17 => 'udp',
    47 => 'gre',
    50 => 'esp',
    51 => 'ah',
  );
my %service_cache = (
    '412/6' => 'NeoModus',
    '1214/6' => 'KaZaA',
    '2340/6' => 'CuteMX',
    '4661/6' => 'eDonkey2000',
    '4662/6' => 'eDonkey2000',
    '5190/6' => 'AIM',
    '5501/6' => 'HotLine',
    '5502/6' => 'HotLine',
    '6257/17' => 'WinMX',
    '6346/6' => 'Gnutella',
    '6347/6' => 'Gnutella',
    '6699/6' => 'WinMX',
    '12345/6' => 'NetBus',
    '12346/6' => 'NetBus',
    '27015/17' => 'HalfLife',
    '27374/6' => 'SubSeven',
    '31337/6' => 'Elite',
  );