#!/usr/bin/perl -w -T

use strict;

print <<EOF
Content-type: text/plain

Hi
EOF