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";
};