use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:cgi); my $cgi = new CGI; print $cgi->header(-nph=>1, -status=>'HTTP/1.1 401 Unauthorized'); exit;