package MyDaemon; use base qw(SimpleDaemon); sub MainLoop { #do work here }