mkdir("$tftpdir/$archive", 755) || warn $!;