If you happen to use Solaris, have a look at SMF (Service Management Facility). You can control the service (start/stop/etc.) and define a restart policy.

CPAN has to offer Supervisor::Process, Ubiq, Proc::Launcher::Supervisor, etc.