package MyLib;

our $MyLibrarysGlobalCallStackInformation;

sub myfunc1
{
  local $MyLibrarysGlobalCallStackInformation = $somedata;

  myfunc2();
}

sub myfunc2
{
  # use $MyLibrarysGlobalCallStackInformation here
}