Select Code to Download

sub cleanpath {
  my $path;
...
  chdir $cwd or die "Can't return to $cwd$ $!\n";
  return $cleanpath;
}