unless (-d $parent) {
    ${$options{ErrStr}} = "Parent directory ($parent) is not a directory";
    return ();
}

##</code><code>##

if ($ENV{PAR_CLEARTEMP}) {
   ($fh, $filename) = File::Temp::tempfile(
      DIR	=> ($ENV{PAR_TEMP} || File::Spec->tmpdir),
      SUFFIX	=> ".$dlext",
      UNLINK	=> ($^O ne 'MSWin32'),
    );
}