use Useful::For qw[ ForRange ];

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use Perl qw[ :all ];