My work around is have another script/batch file kick off the perl program when you start the service via GUI or net start. I added a sub routine to make sure the service is running "while(serviceRunning() ) {}" if you stop the service the perl program will exit gracefully. Trapping signals is much cooler but this works. thanks