#!/usr/bin/perl -l use strict; use warnings; use LWP::Simple; use Time::HiRes qw(sleep); my $content = head('http://www.perlmonks.com'); foreach (1..20) { if ( $content ) { print "Site is reachable on: ", scalar(localtime()); sleep 0.5; } else { print "Site isn't reachable"; } }
In reply to Re: why doesn't Net::ping work when native ping does?
by Khen1950fx
in thread why doesn't Net::ping work when native ping does?
by markseger
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |