package PerlSvc;
use Win32::Service;
use Win32::TieRegistry(Delimiter=>"/");
use DBI;
use DBD::ODBC;
use Win32::EventLog;

##</code><code>##

# the short name by which your service will be known (cannot be 'my')

##</code><code>##

${$_}{'CurrentState'}

##</code><code>##

$dsn="driver=\{SQL Server\}\;Server=$srv\;UID\=$uid\;PWD\=$pwd\;";

##</code><code>##

    $exec=$dbh->prepare("...");
    $exec->execute;

##</code><code>##

$exec=$dbh->prepare("... values ('$cn', '$sname', $state)");

##</code><code>##

    $exec->finish;}else{

##</code><code>##

}
}else

##</code><code>##

        unless (${$_} eq "1"){

##</code><code>##

            $dsn="driver=\{SQL Server\}\;Server=$srv\;UID\=$uid\;PWD\=$pwd\;";

##</code><code>##

}
sleep(5);
}
}

##</code><code>##

    Win32::Service::GetServices("", \%tmp);
...
            if (Win32::Service::GetStatus("",$_,\%{$_})){

##</code><code>##

"$DisplayName"

##</code><code>##

print "No help available.\n";