Help for this page

Select Code to Download

Select or download this

use Win32::Daemon; 
    %Hash = (
        name    =>  'PerlTest',
...
    {
        print "Failed to add service: " . Win32::FormatMessage( Win32:
+:Daemon::GetLastError() ) . "\n";
    }

Select or download this

use Win32::Daemon;


...
    close OUT;
    # Tell the OS that the service is terminating...
    Win32::Daemon::StopService();