sub my_sub {
  local $my_sub_level = $my_sub_level + 1;
  ..
}