1package My::PersistentIterator;
2
3my $iterator;
4
5sub new {
6  my $self = shift;
7  my $class = ref($self) || $self;
8  $iterator ||= (bless {_num=>shift} => $class);
9}
10
11sub next {
12  my $self = shift;
13  $self->{_num}++;
14}
15
161;