my $log = new Service::ParseLog("servlog.txt");
while ($log->read_service()) {
  my @lines = @{$log->{last_service}};
  # do stuff
}
if ($log->{is_parsing}) {
  # Incomplete last service
}