http://www.perlmonks.org?node_id=522641


in reply to Control and Query Win32 Services at the command line

How nice!

I was going to write something like this today.
Thanks!

Update:
I've got something intresting:
my %state_code = ( '1' => 'stopped.', '2' => 'start pending.', '3' => 'stop pending.', '4' => 'running.', '5' => 'continue pending.', '6' => 'pause pending.', '7' => 'paused.' );

greetz, Uksza

Yes, smart people know that fat arrow autoquotes the left argument. But why should you require your code to be maintained by smart people?
Randal L. Schwartz, Perl hacker