#!/usr/bin/perl
#This program counts from 1 to 10
my $count = 1;
while($count <= 10) {
  print $count,"\n";
  $count++;
}

##</code><code>##

#!/usr/bin/perl
#This program prints out 1 to 10, but only one number
#per call to the program
if (not -e "/tmp/iterator-state") {
  `echo 1 > /tmp/iterator-state`;
}
open(S, "/tmp/iterator-state");
chomp(my $count = <S>);
print $count,"\n";
$count++;
close(S);
if ($count <= 10) {
  `echo $count > /tmp/iterator-state`;
} else {
  unlink "/tmp/iterator-state";
}