while(defined(my $line=$logfile->read)) {
		$even ? print "\033[31m", $line, "\033[0m" : print $line;
		$even = !$even;
}