print "Content-type: text/plain\n\n";

$value =	60;		#sekunden
$loop =		0;		#wiederholungen
$c_file =	"run.txt";      #kontrollfile


if($loop>=1)
{
	for($i=0;$i<$loop;$i++)
	{
        	sleep $value;

	        system("$perl_path action.pl");
	}
}
else
{
	while(-e $c_file)
	{
	      	sleep $value;

	        system("$perl_path action.pl");
 	}
}