diff --git a/misc/export_borrowers.pl b/misc/export_borrowers.pl
index 7d3ce47eed..3063ed1f59 100755
--- a/misc/export_borrowers.pl
+++ b/misc/export_borrowers.pl
@@ -26,7 +26,7 @@ use Getopt::Long qw(:config no_ignore_case);
 use C4::Context;
 use C4::Members;
 
-use encoding 'utf8';
+binmode STDOUT, ":encoding(UTF-8)";
 
 sub print_usage {
     ( my $basename = $0 ) =~ s|.*/||;