#! /usr/bin/perl -w use CGI; use URI::Escape; use Encode; my $q = CGI->new; my ($sgf) = Encode::decode('UTF-8', uri_unescape $q->param('sgf')); print $q->header(); print <
Display $sgf
Sorry, your browser doesn't support WGo.js. Download SGF directly.
SGF download
EOF