Select Code to Download

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

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

{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"))};