#!/usr/bin/perl -w
use strict;
use warnings;
use File::Tail;
use Parse::Syslog;

my $log = File::Tail->new("/var/log/syslog");
my $parser = Parse::Syslog->new($log);
while(my $sl = $parser->next) {
    print qq[
        program $sl->{program}
        with pid $sl->{pid}
        on host $sl->{host}
        said $sl->{text}
        at $sl->{timestamp}
    ];
}