my $original = $<;
  $> = $);
  mkpath ...........
  $> = $original;