#!/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: /~wakaba/-temp/wiki/wiki?_charset_=utf-8;mypage=$pt\n\n";
<script>
  let s = document.createElement ('script');
  s.src = '/common.js';
  if (!location.pathname.match (/^\/c\//)) {
    s.setAttribute ('data-ads', '');
  }
  document.body.appendChild (s);
</script>