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