if (my $chld = fork) {
   # supervise $chld from here 
} 
else { 
   # unreliable process here
}