while (1){
#generate filename for today => $SCRIPTLOG
if ($SCRIPTLOG ne $SCRIPTLOG_OLD){
		if ($pid ne "") {
		close(LOGTO);
		}
		open(LOGTO, ">> $SCRIPTLOG") 
		select(LOGTO);
	}
$SCRIPTLOG_OLD=$SCRIPTLOG;

if ($pid eq "") $pid=open3(NULL, ">&LOGTO", ">&LOGTO", "application.exe $parameters");

sleep(30);
}