# You start out in package main
sub get {
  print "This is &main::get();\n";
}
package record; # This puts you in package record
sub get {
  print "This is &record::get();\n";
}


##</code><code>##

use record;
my $rec = record::get();
my $recfoo = $rec->foo();


##</code><code>##

{my$c;$ x=sub{++$c}}map{$ \.=$_->()}map{my$a=$_->[1];
sub{$a++ }}sort{_($a->[0 ])<=>_( $b->[0])}map{my@x=(&
$x( ),$ _) ;\ @x} split //, "rPcr t lhuJnhea eretk.as
o";print;sub _{ord(shift)*($=-++$^H)%(42-ord("\r"))};