if ( kill 0, $process_id) {
    print "process $process_id exists";
}