Select Code to Download

use Net::Ping;
while (1) {
...
  undef $p;
  sleep 3;
}

use LWP::Simple;
while (1) {
...
  }
  sleep 4;
}