Select Code to Download

#!/usr/bin/env perl
use warnings;
...
  do {
      print $ip->ip(), "\n";
  } while (++$ip);

#!/usr/bin/env perl
use warnings;
...
  do {
      print $ip->ip(), "\n";
  } while (++$ip);