#!/usr/bin/perl
use strict;
use warnings;
use Unix::PID '/var/run/tail.pid';
use File::Tail::App qw(tail_app);

   tail_app({
      'new'          => ['my.log'],
      'line_handler' => \&_wag_tail,
      'lastrun_file' => 'x.lastrun',
   });

   sub _wag_tail {
      my($line) = @_;
     print "$line \n";
   }