$ perl -MCGI -e " my $q = CGI->new; print $q->header(qw/ -status 204 -nph 1/) "
HTTP/1.0 204
Server: cmdline
Status: 204
Date: Tue, 19 Nov 2013 13:58:00 GMT
Content-Type: text/html; charset=ISO-8859-1