added binmode :utf8 for filelist and stdout

textarchive/lib/md5cat.pm

@@ -140,6 +140,7 @@ sub read_flist
     print __LINE__, " could not open '$fnm'!\n";
     return -1;
   }
+  binmode (FI, ':utf8'); # maybe we need a flag for that?
 
   my @files;
   while (<FI>)

textarchive/vlib001.pl

@@ -65,6 +65,10 @@ use TA::ObjReg;
 use md5cat;
 use Util::ts qw(ts_ISO);
 
+binmode( STDOUT, ':utf8' ); autoflush STDOUT 1;
+binmode( STDERR, ':utf8' ); autoflush STDERR 1;
+binmode( STDIN,  ':utf8' );
+
 my $project;
 my $store;
 my $refresh_fileinfo= 0;