아햏햏.. Cygwin에서 CP949 문자 깨짐 현상을 해결하기 위해 일본 쪽에서 자주 쓰이는 nkf랑 비슷한 용도의 스크립트.

ahh.pl

#!/usr/bin/env perl
use utf8;
use strict;
use warnings;
use Encode qw/decode/;

binmode STDOUT, ":utf8";
local $| = 1;

my $enc = ($ARGV[0]?$ARGV[0]:"cp949");

print decode($enc, $_) while <STDIN>;