gate/2005/sw.cgi

#!/usr/bin/perl 
my $pt = $ENV{PATH_INFO};
$pt =~ s#^/##;
$pt =~ s#/#//#g;
$pt =~ s/([^A-Za-z0-9._~-])/sprintf '%%%02X', ord $1/ge;
print "Location: http://suika.fam.cx/~wakaba/-temp/wiki/wiki?_charset_=utf-8;mypage=$pt\n\n";
1	#!/usr/bin/perl
2	my $pt = $ENV{PATH_INFO};
3	$pt =~ s#^/##;
4	$pt =~ s#/#//#g;
5	$pt =~ s/([^A-Za-z0-9._~-])/sprintf '%%%02X', ord $1/ge;
6	print "Location: http://suika.fam.cx/~wakaba/-temp/wiki/wiki?_charset_=utf-8;mypage=$pt\n\n";