sub Callback_Start { my($Event, $Context) = @_; print $fh "Starting\n"; print $fh "DEBUG Setting Context\n"; $Context->{last_state} = SERVICE_RUNNING; print $fh "DEBUG Setting State\n"; Win32::Daemon::State( SERVICE_RUNNING ); print $fh "DEBUG Setting State again\n"; Win32::Daemon::State( SERVICE_RUNNING ); }