looking for serverstatus script

[Roy]

Hi,

Im looking for a script that checks the status of some remote servers
(ftp/web and userdefined port), and update the status in an html file.

I used to have a working php script but since that did all the connects
'live' from the html it got shutdown because of generating exessive load.

Is there a perlscript that can do this ?

Thanks in advance
Roy