sub startup : Test(startup)
{
   system("perl $home/filterd.pl &");
   sleep(3); #give the program some time to set up it's children etc.
}

##</code><code>##

system("perl $home/filtermail.pl -test -to guy\@whatever.net -id 1234");