#!/bin/perl

sub makecounter 
  {
     my $x = $_[0];
     sub { 
             $x++;
	     $x;
         }
  }

my $c1 = &makecounter(0);
my $c2 = &makecounter(5);

print  &$c1(), "\n";
print  $c2->(), "\n";



    
