# replace this line
# $PRETEND || -e "$newdir" || mkdir("$newdir");

# with this
unless ($PRETEND || -e $newdir){
  mkdir($newdir) or die "ERROR creating $newdir : Perl says $!";
}

##</code><code>##

my $MAIL_dir = "$kmaildir";

unless ($PRETEND){
  mkdir($claws_tmpdir, 0755) 
     or die "ERROR creating $claws_tmpdir : Perls says $!";
}