Select Code to Download

sub new
{
    my $class = shift;
...

     $self->fooge(@_);  # Blind parameter passing
}

sub fooge
{
     my ($foo, $bar) = (shift, shift);
...

     # ...
}

sub fooge
{
     my ($foo, $bar) = @_;
...

     # ...
}