while ( defined( my $log_line = $bw->readline() ) ) {
	my ($logTime) = ($log_line =~ /^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}).*ProcessHTTPRequestImpl/);
	if ($logTime){
      last if $logTime lt $earliest;
	  print $log_line;
	}
}