#!/usr/bin/perl use strict; use warnings; use diagnostics; $date = localtime(); print STDOUT <<"EOF"; Content-Type: text/html testing junk

This is junk

Date is $date