binmode(STDOUT, ':encoding(UTF-8)'); print "$row[0]\t$row[1]\n";