Select Code to Download

sub foo (ARRAY $arr) { ... }

package Bar;

sub new { bless [], shift }

my $bar = Bar->new;

foo( $bar );

if ($signature)
{
...
        die "$x doesn't match $signature\n";
    }
}