I guess you meant something like

use CGI qw(:standard);
[download]

Otherwise the header function won't be exported into your namespace.

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