use Iterator;

my $i = 0;

my $iterator = new Iterator(sub { return ++$i });

print "Before calling anything: $i\n";
print "First call yields: ", $iterator->value, "\n";
print "After first call: $i\n";