#!/usr/bin/perl -w
use Win32::Daemon;
$count = 0;
#OS den Start des Service Prozesses mitteilen
Win32::Daemon::StartService();
print "start \n";
# Warten bis der Service Manager bereit ist fort zu setzen
# Wobei "SERVICE_START_PENDING" bedeutet, dass der Service Manager versucht bzw. beginnt den Service zu starten
# Solang diese Schleife also nicht verlassen wird, startet der Service Manager auch nicht den Service
# sleep auf eine Sekunde gestellt, damit der Service Manager eine gewisse Zeit hat um zu reagieren
# wobei ich ihm durch $count 20 Versuche gebe, dass der Service Manager reagiert
while ( SERVICE_START_PENDING != Win32::Daemon::State() && $count < 20 )
{
	sleep ( 1 );
	print "sleep " . $count . "\n";
	$count = $count + 1 ; 
}

# Teilt den Service Manager mit, dass der Service läuft.
Win32::Daemon::State( SERVICE_RUNNING ) ;