外部CGIファイル読み込み(require)
#! /usr/local/bin/perl
print qq(Content-type: text/html\n\n);
print <<END;
<html>
<head>
<title>外部CGIファイル読み込み</title>
</head>
<body>
↓外部CGIファイル読み込み<br>
<br>
END
require "../../sample/require1.pl";
print <<END;
<br>
</body>
</html>
END
exit;
〔 実行する 〕