Select Code to Download

sub dirname {
  my $word = "site";
...
    $name;    # "Useless use of private variable in void context"
  }
}