Select Code to Download

sub trim {
   for (my $s = $_[0]) {  # passed param assigned, not used
...
      return $_;
   }
}

sub trim {

...
    return $string;

    }