I think you got a typo here:

print qq(Content-type: text/html\n");
[download]

What you really want is

print qq(Content-type: text/html\n);
[download]

without the trailing "

$|=$_='1g2i1u1l2i4e2n0k',map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g