utf8 pragma

[migration-tools.git] / select_marc.pl

diff --git a/select_marc.pl b/select_marc.pl
index 152bd1c..397f763 100755 (executable)
--- a/select_marc.pl
+++ b/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' );