Select Code to Download

my $self=shift;
my ($foo, $bar, $baz)=@_;

my ($self $foo, $bar, $baz)=@_; # would be just as fine.

my $param_one=shift;