print $q->header(     -nph=>1,         #unfortunatly IIS
                      -status=>'200 OK',
                      -type=>'text/html'),
                                         ^--- ;

##</code><code>##

print $q->header();