Perl CGI setting headers

code. #!/usr/bin/perl -wT

use strict;
use warnings;

use CGI qw(:standard);

print header('text/plain', '404 Not Found');

print "Move along, nothing to see here\n";
code..

At promp, execute: <code>curl -i url-to-script</code>

which returns:

code.HTTP/1.1 404 Not Found
Date: Fri, 04 Oct 2013 14:14:58 GMT
Server: Apache
Vary: Accept-Encoding
Transfer-Encoding: chunked
Content-Type: text/plain; charset=ISO-8859-1

Move along, nothing to see here
code..


#perl - #programming