#!/usr/bin/perl # test1 print <<_ENDPRINT; Content-type: text/html Test

Hello World

_ENDPRINT exit 0;