外部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;
〔 実行する 〕