Select Code to Download

1;30Nov2001;17:08:25;192.168.1.2;log;accept;;hme0;outbound;udp;192.168
+.86.6;20.248.36.99;domain-udp;1103;63;85;;;;;;;;;;;;;;;
2;30Nov2001;17:08:25;192.168.1.2;log;drop;;hme0;inbound;tcp;63.28.96.2
+54;192.168.11.67;netbios-ssn;18803;48;89;;;;;;;;;;;;;;;
...
10;30Nov2001;17:08:26;192.168.1.2;log;accept;;hme0;outbound;tcp;192.16
+8.27.154;25.188.145.185;http;4396;44;85;;;;;;;;;;;;;;;
11;30Nov2001;17:08:26;192.168.1.2;log;accept;;qfe2;inbound;tcp;192.168
+.27.154;205.88.145.185;http;4397;44;85;;;;;;;;;;;;;;;
12;30Nov2001;17:08:26;192.168.1.2;log;accept;;hme0;outbound;tcp;192.16
+8.27.154;205.188.45.185;http;4397;44;85;;;;;;;;;;;;;;;

#!/usr/bin/perl -w
use strict;
...
    push(@service, $service); 
  }
}