#!/usr/bin/perl

use strict;
my ($timeout, $lastGoodTime);

$timeout = 20; # Timeout in seconds

while(-f pid.txt) {
  my $inLine = <>;
  if ($inLine ne '') {
    print "$inLine\n";
    if ($inLine =~ /^Done/) {
      print "Exiting\n";
      $lastGoodTime = time;
      exit;
  } elsif (( $inLine eq '' ) && ( time > ( $lastGoodTime + $timeout ))) {
      &requestRestart();
  }

}