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;
}