#!/usr/bin/perl -T

use strict;
use warnings;
use File::Tail;

die "Not enough arguments\n" unless @ARGV;
my ($file, $regex) = @ARGV;
$regex = '.' unless defined $regex && length $regex;

my $tail = File::Tail->new (
    name        => $file,
    maxinterval => 5,
    adjustafter => 10,
);

$SIG{ALRM} = sub { printf "\n%s\n", '='x80; };

while (defined ($_ = $tail->read)) {
    print && alarm 2 if /$regex/;
}

##</code><code>##

# ~/bin/tf2.pl file '(??{print "Hello, world!\n"})'
Eval-group not allowed at runtime, use re 'eval' in regex m/(??{print "Hello, world!\n"})/ at /root/bin/tf2.pl line 20.