#!/usr/bin/perl print <<"TheEnd"; Content-type: text/html Hello, World Hello, World TheEnd ;