Select Code to Download

#!/perl -w

...
{
    print "Failed to add service: " . Win32::FormatMessage( Win32::Dae
+mon::GetLastError() ) . "\n";
}

use Win32::Daemon;

...
     {sleep(1);}

Win32::Daemon::State( SERVICE_RUNNING );

BEGIN {
    open( STDERR, ">>c:/daemon.err" );
    warn "$0 started ".localtime().$/;
}

#!/perl -w

use strict;
...

    close LOG;
}