use Win32::Service;

Win32::Service::GetServices("", \%ServiceList); #Aktuelle Service in Hash Liste(%ServiceList) 

while (($key, $value) = each %ServiceList) {  	# Durchgehen der Hash Liste + Spalten in Variablen packen
     print "$key ($value)\n";			# ausgabe


Win32::Service::GetStatus("",$value, \%status);

print "Status: ";
print "$status{'CurrentState'} \n";   # Status wird in Zahlen angezeigt

if ($status{'CurrentState'} == 1) {
    print "not running\n";}

if ($status{'CurrentState'} == 4) {
    print "running\n";}
print "\n";
}