use strict;
use warnings;

use File::Tail;

my $i = 0;
my $log = $ARGV[0];
my $logfile = File::Tail->new(name=>$log, maxinterval=>3, adjustafter=>3, interval=>0, tail=>100);

while(defined(my $line=$logfile->read) && $j < $j+1) {
        $i++;
        if (0 == $i % 2) {
                print "\033[31m", $line, "\033[0m";
        }
        else {
                print $line;
        }
}









if (@ARGV==0) {
        print "$0: missing file operand\n";
        print "Try '$0 --help' for more information.\n";
}

if ($ARGV[0] =~ "--help") {
        help();
}

sub help {
        print "-h\t\tshow this help\n";
}