#!/usr/bin/perl -w use strict; print "script started!\n"; my $result = system "critical.pl"; # if it comes here, then the script has died. print "critical.pl is no longer running. (Exit code $result)\n"; #perhaps add code to send a mail to your address