use PadWalker qw/peek_my/;
     use Data::Dump qw/dump/;
     state $scope_printed = 0;
     if (not $scope_printed++) {
         my $my_vars = peek_my(0);
         while (my ($var, $ref) = each %{ $my_vars }) {
             printf "%15s => %s\n", $var, dump $ref;
         }
     }