sub PerlSvc::Startup(){

  while (ContinueRun(1)) {
       
        print "I'm a service and I'm running\n";
        
        # do prog ..........
        
        print STDERR "And I also output errors\n";
        
    }
#------------------------------------------------------------------------
    # clean up code for stopping service
    #------------------------------------------------------------------------    
   
    print "Thank you and goodnight\n"
}