do{
$tag=(localtime(time))[3];
$tag = $tag < 10 ? $tag = "0".$tag : $tag;
print "Waiting for button";
do{
open($t,"gpio read 10 |");
$i=<$t>;sleep 1;
}while($i=~m/0/);
print "Current day: $tag\n";
system ("nohup ogg123 ./musik/$tag* &");
print "Music started\n";
system ("gpio write 11 1");
system ("gpio write 11 0");
system ("gpio write 11 1");
system ("gpio write 11 0");
print "Day set\n";
system ("nohup perl ./led/$tag.pl &");
sleep 25;
system ("perl ./servo/$tag*");
sleep 1000;
}while($tag<24);