#!/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/;
}