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

This is junk

Date is $date EOF