Select Code to Download

package Foo;
use warnings;
...

print "$_\n" for @$return;

spek@scelia ~/scratch $ perl obj.pl 
2
4
6

# test A
{
...
}

...

...

...
}

...