Select Code to Download

sub foo
{
    my $onlyarg=shift; # @_ is the default argument for shift
    # more code
}

sub bar
{
    my ($huey,$dewey,$louie)=@_;
    # more code
}

sub baz
{
    my $onlyarg=$_[0];
    # more code
}

sub moo
{
...
    my $louie=shift;
    # more code
}

sub ohnononononopleaseno
{
...
    my $louie=$_[2];
    # more code
}

sub foo2
{
    my ($onlyarg)=@_;
    # more code
}