![[PukiWiki]](image/tux_100x119.jpg "[PukiWiki]")
<!--#include virtual="./hoge.cgi?arg1" -->
print "Content-Type: text/plain; charset=utf-8" . "\n\n\n"; # これを最初に出さないと出力されない
#!/usr/bin/perl
# 引数で渡した値がHTTP_STATUSとなる。
use English;
my ($HTTP_STATUS) = 200;
foreach $argv (@ARGV) {
$HTTP_STATUS = $argv;
}
&return_status_code ($HTTP_STATUS);
exit 0;
####################################################################
sub return_status_code {
my ($http_status) = $_[0];
print "Content-type: text/html\n";
print "Status: $http_status\n";
print "HTML";
}
