Perl CGI setting headers

 #!/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";

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