use Time::HiRes;
system ("nohup ogg123 ./music/01* &");
system ("nohup perl ./led/test.pl &");
system ("nohup perl ./servotest.pl &");
for ($x=1;$x<360;$x++)
{
system ("gpio write 11 1");
system ("gpio write 11 0");
Time::HiRes::usleep(100000);
}
sleep 20;
system ("killall ogg123");