[Perl] Auth gaat niet zoals ik wil :(

[Verwijderd]

Ik ben een webserver aan het maken in perl. Om de webserver in te komen wil dat je inlogt. Dus heb ik een paar headers aangevraagd. In mijn script staat de volgende code:

code:

if ( $auth_username eq "" )
{

                print $fh "HTTP/1.1 401 Unauthorized\r\n";
                print $fh "Content-type: text/html\r\n";
                print $fh "X-Powered-By: Mijn Webserver/1.0\r\n";
                print $fh "WWW-Authenticate: Basic realm=\"$auth_message\"\r\n";
                print $fh "Error!";


}

Het probleem is dat "Error!" Niet wordt weergegeven als er op annuleren wordt gedrukt! Wat doe ik verkeerd?

Alvast Bedankt!

Groeten Ruben!

[Verwijderd]

Perongeluk 2 keer gepost! Modje! Close hem aub!

[Pelle]