Hey everyone, By adding the following code just before the last exit (see above code) I was able to not get this error:

    PerlSvc::ReportStatus(PerlSvc::SERVICE_STOPPED());
[download]

Thanks for all your suggestions. I appreciate the help you gave.
Best Regards,
Mike