sub PerlSvc::Startup(){                  
#Function called when the service is started.