print header(-status => "401 Unauthorized",
    -www_authenticate => 'Basic realm="Test"',
    # Falls NonparsedHeaders notwendig, auskommetieren
    #-nph => 1
    #
   );