Select Code to Download

{ 
    my array;
...

my $found = find( 5 );
print $found->value; # prints 'QUUX';

{ 
    my $pseudo;
...
        return $frags[ $index ];
    }
}