Help for this page
Select Code to Download
Select
or
download this
perl -le "print `ping badhost` =~ /please check/i ? 'bad':'good'"