Select Code to Download

#!/perl -w

...
   #you understand what's going on right?
   attempt_LWP_Get if $p->ping($_);
}