CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Explicitly name the content type and status arguments
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi=new CGI;
print $cgi->header(-type=>'text/html',
                   -status=>'401 Authorization Required',
                   -authname=>'Tom');