it is not getting from Win32::Service::GetStatus('', $servicename, \%status); ?

There is nothing in the documentation to indicate that. Based on the test file this seems to be how to use the module (untested since I'm not on windows at the moment):

my %services;
Win32::Service::GetServices("", \%services);
while ( my ($k,$v) = each %services ) {
    print "$k\t$v\n";
    my %status;
    Win32::Service::GetStatus("", $v, \%status);
    while ( my ($k,$v) = each %status ) {
        print "\t$k\t$v\n";
    }
}
[download]

I checked hash %status, one of its key is 'CurrentState', so I am trying to do this

Win32::Service::GetStatus($hostname, $servicename, \%status);
print MYFILE " ServiceStatus: ", $hostname, $servicename, $status{Curr
+entState}, "\n";
[download]

, it is not working. I also tried to use this to map the number I defined for each status, it is still not working.

 if ($status{CurrentState} eq 4 )
       {print MYFILE " ServiceStatus: ", $hostname, " ", $servicename,
+ " ", "is running\n";}
       else {print MYFILE " ServiceStatus: ", $hostname, " ", $service
+name, " ", "is not running\n";}
[download]

4 is map to 'Started' I have service is Started, but all my statements 'is not running'.

I'm guessing you want $status{'CurrentState'}. Try

#!perl
use strict;
use Win32::Service qw'GetServices GetStatus';

my @state_name =  qw( '' Stopped START_PENDING STOP_PENDING
                         Started CONTINUE_PENDING PAUSE_PENDING
                         PAUSED  ERROR  );

my $hostname = 'localhost'; 
my %service=();
GetServices($hostname,\%service) or die "$!";

for my $name (sort keys %service){
  
  my $shortname = $service{$name};
  my %status = ();
 
  # keys to %status
  # CheckPoint 
  # ControlsAccepted
  # CurrentState
  # ServiceSpecificExitCode
  # ServiceType
  # WaitHint
  # Win32ExitCode
  
  GetStatus($hostname, $shortname, \%status);
  my $state_no = $status{'CurrentState'};
  printf  " ServiceStatus: %s %s %s \n", 
        $hostname, $shortname, $state_name[$state_no];  
}
[download]

Hi poj, Can I know what '' is for in the front of your array @state_name? Thanks!

It's the first element of the array, try print $state_name[0]