#!/usr/bin/perl print "Content-Type: text/plain\015\012\015\012Hello"; __END__ =head1 NAME Hello World =cut