Select Code to Download

use List::MoreUtils qw(any);

...
    print $k;
  }
}

use List::MoreUtils qw(none);

...
    print $k;
  }
}