unless(-d $dir)
{
`mkdir -p $dir`;
}

##</code><code>##

mkdir: cannot make directory: /usr/spool/uucppublic/sent/bki_prod: File exists (error 17)
mkdir: cannot make directory: /usr/spool/uucppublic/sent/bki_prod: File exists (error 17)