Select Code to Download

#! perl -slw
use strict;
...
05/Jun/2003:00:16:56 user7 agency2 url2 garbage pass mod2 more_garbage
05/Jun/2003:00:17:31 user1 agency1 url1 garbage fail mod1 more_garbage
05/Jun/2003:00:17:31 user1 agency1 url1 garbage pass mod2 more_garbage

D:\Perl\test>test
 agency1  url1   3   1   0   1 mod1
...
 agency2  url2   0   1   0   1 mod1
 agency2  url2   1   0   0   1 mod2
    null  url1   0   1   0   1 mod1