REM batch file method:
net start my_service
perl -e "sleep 10"
net stop my_service

# perl method:
system("net start my_service");
sleep 10;
system("net stop my_service");