There is an example here of a simple script to check services on a server and mail you if one is down. Add a round robin ping script (have a look at the Net::Ping module) and you have covered the basics.

http://perl.about.com/od/perltutorials/qt/servicemonitor.htm

Cheers,
R.