mkdir("$tftpdir/$archive", 755) unless ( -d $tftpdir/$archive );
##</code><code>##

mkdir("$tftpdir/$archive", 755) unless exists;