PerlSvc::ReportStatus(PerlSvc::SERVICE_STOPPED());