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