#!/usr/local/bin/perl
#
# $Id: mojibake.cgi,v 0.1 2007/04/13 16:19:28 dankogai Exp dankogai $
#
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Encode;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;

my $q = CGI->new;

die $ENV{SCRIPT_NAME}, 
    "?d=display-encoding&o=output-encoding&s=URL_ENCODED_UTF8_STRING"
    unless $q->param;
my $de  = $q->param('d') || 'UTF-8';
my $oe  = $q->param('o') || 'UTF-8';
my $enc = find_encoding($oe) or die "Cannot find Encoding: $oe";
my $str = $enc->encode(decode_utf8($q->param('s')));
print 
    $q->header(-type    => "text/plain",
	       -charset => $de),
    $str;