my $iter = upto(5);
while (my $item = $iter->()) {
    print "Item: $item\n";
}