diff --git a/dbi/dumpsql b/dbi/dumpsql
index 8359365..c4929f1 100755
--- a/dbi/dumpsql
+++ b/dbi/dumpsql
@@ -20,6 +20,11 @@ use strict;
 use DBI;
 use Getopt::Long;
 use Encode qw(:fallbacks encode);
+use I18N::Langinfo qw(langinfo CODESET);
+
+my $charset = langinfo(CODESET);
+binmode STDOUT, "encoding($charset)";
+
 
 my $help;
 my $vertical;	# use vertical output format