Select Code to Download

use IO::Socket;
use IO::Interface qw(:flags);
...
  }
}

use Net::Ping;
my $addr = get_local_addr("ppp0");
...
  undef $p;
  sleep 3;
}