sub Callback_Running {
	my($Event, $Context) = @_;
print "State: " . Win32::Daemon::State() . "\n";
	if(SERVICE_RUNNING == Win32::Daemon::State()) {
		Log 1, "DBSAgent is checking in.";;