Select Code to Download

#!/usr/bin/perl
use Data::Dumper;
...

__DATA__
2007-11-16 16:05:40    Local1.Alert    128.2.2.40    id=firewall time=
+"2007-11-16 16:03:37" fw=WS2000-Store 02 pri=1 proto=6(tcp) src=128.2
+.2.200 dst=128.2.100.106 mid= 1013 mtp=  2 msg=TCP connection request
+ received is invalid, dropping packet Src 23 Dst 4631 from EXT n/w ag
+ent=Firewall

$VAR1 = '2007-11-16';
$VAR2 = '16:05:40';
...
            'pri' => '1',
            'dst' => '128.2.100.106'
        };