Select Code to Download

sub foo {
   my ( $x, $y ) = @_;
   # ...
}

sub foo {
    my $x = shift;
    my $y = shift;
    # ...
}

        my ( $sourcefile, $removeq )= @_;

my ( $removeq ) = @_;