if ($log_line lt $earliest) {
   use Data::Dumper;
   $Data::Dumper::Useqq = 1;
   print Dumper("stopped on $log_line"),"\n";
}