え！？じゃあ

#!usr/local/bin/perl

use CGI;$q = CGI->new;$q->param;die($q->cgi_error) if ($q->cgi_error);
print "Location:http://pc8.2ch.net/test/read.cgi/hp/";,$q->param('num'),"/l50\n\n" if ($q->param('hair') eq 'hage');
print <<HTML;
Content-type: text/html

<form method="POST" script="$ENV{'SCRIPT_NAME'}"><input type="hidden" name="hair" value="hage">
<input type="text" name="num"><input type="submit" value="ぬるぽ"></form>
HTML

これ全部CGIですか？