Two things:

1) If you don't have a \n at the end of EndHTML, then it's not really there. I'm betting the last line of your file is just EndHTML^Z.

2) You need a space after the colon in Content-type:. You may want to use CGI; and just call print header;.

xoxo,
Andy

%_=split/;/,".;;n;u;e;ot;t;her;c; ".   #   Andy Lester
'Perl ;@; a;a;j;m;er;y;t;p;n;d;s;o;'.  #   http://petdance.com
"hack";print map delete$_{$_},split//,q<   andy@petdance.com   >