This work very good, but not have support encoding for input text. I made some changes:
#open (CSVFILE, $option{csvin}) or die "Error opening $option{csvin}
open CSVFILE, '<:encoding(cp1251)', $option{csvin} or die "Error opening $option{csvin} +: $!";
May be Siebenschlaefer can add this feature as swith "-e encoding" ?