Select Code to Download

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