c:\@Work\Perl>perl

use strict;
use warnings;

# use Data::Dump qw(dd);  # for debug

sub Iterator (&) { return $_[0]; }  # syntactic sugar per mjd (Dominus)

sub irange_limited {

    my ($start, $end) = @_;

    return Iterator {
        return if $start > $end;
        return wantarray ? $start .. $end : $start++;
        };

    }

my $iter = irange_limited(3, 5);

for my $n ($iter->()) {
    print "for loop: $n \n";
    }

while (my $n = $iter->()) {
    print "while loop: $n \n";
    }

^Z
for loop: 3
for loop: 4
for loop: 5
while loop: 3
while loop: 4
while loop: 5

##</code><code>##

sub irange_limited {

    my ($start, $end) = @_;

    my $n = $start;

    return Iterator {

        return
            wantarray ? $start .. $end    :
            $n > $end ? ($n = $start, ()) :
            $n++
            ;

        };

    }