utf8 pragma

[migration-tools.git] / dump_inverse_select_marc.pl

diff --git a/dump_inverse_select_marc.pl b/dump_inverse_select_marc.pl
index dd3350e..666d567 100755 (executable)
--- a/dump_inverse_select_marc.pl
+++ b/dump_inverse_select_marc.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use open ':utf8';
 use MARC::Batch;
 use MARC::Record;
 use MARC::File::XML ( BinaryEncoding => 'utf-8' );