Select Code to Download

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

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