sub create_iter 
  {
  my $count = 0;      # Closures
  my $inc = shift;
  # Referenz auf anonyme Funktion zurueckgeben 
  return sub { $count += $inc; return $count; };
  }

# Referenz auf eine Funktion, die um 10 hochzaehlt
my $iter = create_iter(10);

# Funktion ueber Refernz 20 mal aufrufen
print &{$iter}, ' ' for (1..20); 

print "\n";