} elsif( SERVICE_RUNNING == $State ) { # The service is running as normal... system('net send 127.0.0.1 Hello'); sleep 5; } else { # We have some unknown state... # reset it back to what we last knew the state to be... Win32::Daemon::State("$PrevState"); sleep( $timeout ); }