Hi Monks,
I was looking for a way to see the callers private variables from another sub without passing them as arguments at all, or using globals or changing the caller in any way. Such as in:

package Someone::Private;
sub very_private {
   my $name = shift;
   peek_me;
}

package My::Snoop;
sub peek_me {
   my $name = #?????;
   print 'I can see your house from here: '.$name;
}
[download]

cheers
miguel