Try modifying your script to test the return codes from the calls. In particular

Win32::Service::StopService('', $svc)
    or warn "Couldn't stop $svc because $^E";
[download]

There are several possibilities why the call could be failing, but easier that speculating on them is to find out why the system thinks it couldn't do this for you.