Random-death is a project mainly written in Perl, it's free.

Toy for killing characters at regular intervals.