It turns out that writing daemons in perl is as easy as

exit if fork();