plog for ipfilter is not working?

[perikillo]

   Hi all.

I want to analize my logs of ipfilter on my freebsd box, i dont want
to use any X stuff, because i dont any of that on my firewall.

   Them i have read about scripts that we can found under:

/usr/src/contrib/ipfilter/perl/ (:-? i think)

   On the google, i see that plog is recomend, i dont have much
experience on perl, but i give the try, i copy that file under the
root dir
  
    /root/

    Them i make the test:

test# sh /root/plog -AF block,log < /var/log/firewall.log.0

    And perl send to me this error:

---> unexpected '(' on line 159.

    thie is the code where appear this error:

use strict;
use Socket;
use IO::File;

select STDOUT; $| = 1;

my %hosts;

my $me = $0;
$me =~ s/^.*\///;

# Map of log codes for various actions. Not all of these can occur, but
# I've included everything in print_ipflog() from ipmon.c.
my %acts = (             <------------------------Here
    'p'	=> 'pass',
    'P'	=> 'pass',
    'b'	=> 'block',
    'B'	=> 'block',
    'L'	=> 'log',
    'S' => 'short',
    'n' => 'nomatch',
);

   For me is correct the code, maybe the mistake is on me?

I forget or miss something?

   Any help i will apreciate or another program to analize my logs?

   Freebsd  4.11 Release ipfilter on the kernel. Thanks.