That's pretty cool, zeno
One reason for fetching page headers instead of using ping is if you can't run the script from a host in your DMZ, and your firewall blocks ICMP. It also eliminates false negatives if the website you pick doesn't respond to ICMP. Or you could use this goody to nail up a dial connection - some ISPs don't hold a line up for ICMP but will, of course, for HTTP.
BTW, I changed the open OUT,">>",$log lines like so: open (OUT, ">>$log") to get rid of this error:
Too many arguments for open at lines (open OUT) near "$log or"
Perl 5.00503 on Debian 2.2.
striving for Perl Adept
(it's pronounced "why-bick")
Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
Want more info? How to link
or How to display code and escape characters
are good places to start.