Select Code to Download

sub object_method {
    my $self = shift;
    my ($foo,$bar,$baz) = @_;
}

my ($foo,$bar) = shift;