Select Code to Download

use Useful::For qw[ ForRange ];

ForRange \my $i, 1, 10, {
    print $$i;
}

use Useful::For qw[ ForRange ];
use UseFul::If;
use UseFul::While;
 ...

use Useful;
Use qw[ For If While ];
...

use Useful;
Useful {
...
   If    => qw[ :all ],
   While => qw[ :all ],
};

use Perl qw[ :all ];