Select Code to Download

  sub getFoo {
    my($a, $b) = @_;
    my $strFoo = $a;
    ...

  sub getFoo {

...
    ($a,$b) = @_;
 
    $strFoo .= $a;