while( SERVICE_STOPPED != ( $State = Win32::Daemon::State() ) ){
    if( SERVICE_STARTING == $State ) {

##</code><code>##

Argument "SERVICE_STARTING" isn't numeric in numeric eq (==) at ...

##</code><code>##

    if( $State == SERVICE_STARTING  )

##</code><code>##

if ($color eq 'red') { 
 print 'angry';
} elsif ($color eq 'green') {
 print 'money';
} elsif ($color eq 'blue') {
 print 'sad';
}