#runsentry.pl
while(1) {
  sleep(1000);
  system("perl sentry.pl");
}