Select Code to Download

{
  package root;
...
calling big bro ...
yo, I be in: left
obj is Class::SetISA::righterer::left=ARRAY(0x9486304)

{
  package MY;
...
that(): I'm in foo
this(): I'm in bar
that(): I'm in bar

use strict;         
use warnings;
...
## post main::foo returning: void context

but *I* was called by: main::ha

@orig = qw/ foo bar xx baz quux /; 
push @{/xx/ .. 0 ? /xx/ ? next : \@a2 : \@a1}, $_
...

a1: foo bar
a2: baz quux

use B;
BEGIN {
...
I'm ending this right now!
last one
these arguments here

$dhcp140.dan(0.1485, "perl") cat MyObj.pm 
package MyObj;
...
I am MyObj=HASH(0x80fba1c), with 'a list of args'
$dhcp140.dan(0.1490, "perl") perl -MMyObj -MMyObj -e 'my $o = require 
+MyObj; $o->test("a list of args")'
I am MyObj=HASH(0x80fbc38), with 'a list of args'

#include <stdio.h>
#include <string.h>
...

    return 0;
}

>+++++++++[<++++++++++>
 -]<+>>+++++++++[<++++
...
  [<-<+>>-]]<[<<<<<<.
 >>>>>>-]<<<.<<<<.>>>>
>>><]>>>>++[<+++++>-]<.

# done - $|++
# done - keys %{ {map {$_ => 1} @list} };
...

## maybe too specific
my @placeholders = join ',' => map '?' => @vals;

int main(void) {
        char *a,b[]={0x1,0x9,0x12,0x12,0xc,0x16,0x0};
...

}