#!/usr/bin/perl -w

my $logfile = "./totte.log";
open my $log, '-|', qw(tail -f), $logfile
    or die "Couldn't tail logfile '$logfile': $!";
while (<$log>) {
    chomp;
    print "Got line >>$_<<\n";
};

##</code><code>##

osabst@dfrsifc1:/tmp $ cat >totte.log
test

osabst@dfrsifc1:/tmp $ perl -w tmp.pl
Got line >>test<<

##</code><code>##

Got line >>test2<<
$ cat tmp.pl
#!/usr/bin/perl -w

my $logfile = "./totte.log";
open my $log, '-|', qw(tail -f), $logfile
    or die "Couldn't tail logfile '$logfile': $!";
while (<$log>) {
    chomp;
    print "Got line >>$_<<\n";
};