Select Code to Download

sub caller_info {
...
  $call_info{sub_name} = $sub_name;
  return wantarray() ? %call_info : \%call_info;
}