sub closure {
  my $abc = shift;   
  $rs_increment = sub {$abc++};    
  sub abc {$abc}  ;    
  print "Innen: ", abc() , "\n"; 
  ($rs_increment, \&abc );
}


($inc, $fetch) = closure(10);                  #> Innen: 10
($inc2, $fetch2) = closure(20);              #> Innen: 10

&$inc;
&$inc;
&$inc;

print "Aussen: ",&$fetch;                      #>  Aussen: 13
print "Aussen: ",&$fetch2;                    #>  Aussen: 13