iControl graceful stop node

Hello,   I'm searching for a perl script just to make a 'graceful' stop of one of my webservers.   My objective is to add some code to /etc/init.d/httpd for:   a) do not accept more con...