Select Code to Download

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

# later
foo(Bar->new);

sub foo(Bar $bar) {
    print $bar->[3];
}

my $parser = HTML::TokeParser->new(\$html);

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

foo($parser->get_token) {...}