#!/usr/bin/perl

use File::Tail;
use Parse::Syslog;

$file = File::Tail->new(name => '/var/log/all.log', maxinterval => 100, adjustafter => 3);

$parser = Parse::Syslog->new($file, type => 'syslog', year => '2007', repeat => 'true');
while($sl = $parser->next) {
        #print $sl->{level} . " : ";
        #print $sl->{facility} . " : ";
        print $sl->{timestamp} . " : ";
        print $sl->{host} . " : ";
        print $sl->{program} . " : ";
        #print $sl->{pid} . " : ";
        print $sl->{text} . " : ";
        print "\n";
}