fix a bug in http perl.tt