{
  my $var=2;
  sub inc {return $var++}
  sub dec {return $var--}
}
print inc;
print dec;