Select Code to Download

sub dosomething{
    my $foo = shift;
    my $bar = shift;

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