use Win32::Service;

$|=1;

%h=();
Win32::Service::GetServices("", \%h);
print "1..", scalar keys %h, "\n";
while (my($k,$v) = each %h) {
    print STDERR "$k|$v\n";
    my %status = ();
    Win32::Service::GetStatus("", $v, \%status);
    while (my($k,$v) = each %status) {
	print STDERR "\t$k\t\t$v\n";
    }
    $i++;
    print "ok $i\n";
}