#!/usr/bin/perl
open T,"tail -f $ARGV[0]|";
$SIG{ALRM}=sub{printf"\n%s\n",'='x120};
print&&alarm(2)while<T>