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