sub my_subroutine {
  local $main::my_subroutine_level = $main::my_subroutine_level + 1;
  ....
}