assume standard input/output is utf8

Fixes length calculation of unicode data.

diff --git a/graph b/graph
index 093ed65d90c99b8eba8c99a81a944b2aca320e20..ad1225b21241ae4e30819a4ccc007620179f904b 100755 (executable)
--- a/graph
+++ b/graph
@@ -2,6 +2,7 @@
 use 5.014;
 use warnings;
 use List::Util qw( max sum );
+use open qw( :std :utf8 );
 
 our $VERSION = '1.00';