#!/usr/bin/perl print "Content-type: text/html\n\n"; print < Some Title top print "$_
" for ; print < bottom __DATA__ Test Test Again One More Test!