HTMLファイル読み込み・表示
#! /usr/local/bin/perl
print qq(Content-type: text/html\n\n);
print <<END;
<html>
<head>
<title>HTMLファイル読み込み</title>
</head>
<body>
↓HTMLファイル読み込み<br>
<br>
END
#HTMLファイル読み込み
open(FILE, "<../../sample/include1.html");
eval{ flock(FILE, 1) };
while($html = <FILE>){
print $html;
}
close FILE;
print <<END;
<br>
</body>
</html>
END
exit;
〔 実行する 〕