Select Code to Download

use constant SERVICE_CONTROL_STOP       => 0x00000001;
use constant SERVICE_CONTROL_PAUSE      => 0x00000002;
...
use constant SERVICE_CONTINUE_PENDING => 0x00000005;
use constant SERVICE_PAUSE_PENDING => 0x00000006;
use constant SERVICE_PAUSED        => 0x00000007;

Win32::Daemon::AcceptedControls(
&SERVICE_CONTROL_STOP| &SERVICE_CONTROL_PAUSE|
...
&SERVICE_CONTROL_POWEREVENT|&SERVICE_CONTROL_SESSIONCHANGE|
&SERVICE_CONTROL_PRESHUTDOWN|&SERVICE_CONTROL_TIMECHANGE|
&SERVICE_CONTROL_TGIGGEREVENT );

use Win32::Daemon;

...
        print LOG "[" . localtime() . "] $Message\n";
    }   
}