Check your print statement. You're printing "not running" when the value of $refService->{Started} is true.

Shouldn't it be like this?

print $refService->{Name}
. " is "
. ($refService->{Started} ? "" : "not ")
. "running\n";
[download]

/prakash