or download this
#!/usr/bin/perl -w
use strict;
...
watch process procAlive 'automountd' 5 0x2 60 'Production Critical: au
+tomountd failure. Call USA POC' '/opt/EMPsysedge/bin/sysedge.sh'
watch process procAlive 'xntpd' 6 0x2 60 'Production Critical: xn
+tpd failure. Call USA POC' '/opt/EMPsysedge/bin/sysedge.sh'
watch process procAlive 'itaagtd' 7 0x2 60 'Production Critical: it
+aagtd failure. Call USA POC' '/opt/EMPsysedge/bin/sysedge.sh'