Add "use bytes" pragmas

1 files changed, 3 insertions, 0 deletions

diff --git a/bin2hex.pl b/bin2hex.pl
index 8d8909b9..e1dc95fa 100755
--- a/bin2hex.pl
+++ b/bin2hex.pl
@@ -1,4 +1,7 @@
 #!/usr/bin/perl
+
+eval { use bytes; };
+
 $len = 0;
 while ( read(STDIN,$ch,1) ) {
     $cc = ord($ch);