in reply to Parsing an intranet web page

Try using LWP::UserAgent and look at the response code.

In Section Seekers of Perl Wisdom