#!/usr/local/bin/perl

use strict;
use warnings;
$|=0;

use Win32::Service;
my %status;

Win32::Service::GetStatus("VL94196",'SendLogServer', \%status);
print "SendLogServer : ".$status{'CurrentState'}."\n";


##</code><code>##

Use of uninitialized value in concatenation (.) or string at Z:\ScriptPerl\TMP\services.pl line 21.