#!/usr/bin/perl
$outputfile = ”
”;
#↑相対パスで記述してみてください。
#読み込み
open(TEMPLATE, $outputfile) or die ”can’t open error.html: $!”;
local($/) = undef;
my $template = ”
withママへ、ようこそ!
”;
close(TEMPLATE);
#吐き出す
print ”Content-Type: text/html¥n¥n”;
print $template;
exit;