Select Code to Download

package PerlSvc;
use Win32::Service;
...
use DBI;
use DBD::ODBC;
use Win32::EventLog;

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

${$_}{'CurrentState'}

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

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

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

    $exec->finish;}else{

}
}else

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

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

}
sleep(5);
}
}

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

"$DisplayName"

print "No help available.\n";