programming-examples/perl/CGI/Explicitly name the content type and status arguments.pl

8 lines
209 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/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');