a simple perl script to check a web page