#!/usr/bin/perl
######################################################################

%win=(''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'',''=>'');
######################################################################

sub win2koi($) {
        local($src)=@_;
        my $dst="";

        for ($i=0; $i<length($src);$i++) {
                $c=substr($src,$i,1);

                if (exists $win{$c}) {
                        $dst=$dst . $win{$c};
                }
                else {
                        $dst=$dst . $c;
                }
        }

	return $dst;

}
######################################################################

