[metton]

Серверу?
Полагаю, никак.

А вот клиенту можно так:
print "Location: your_401.html\n\n";