diff --git a/perl/t/06_stream_unpack2.t b/perl/t/06_stream_unpack2.t
index 68a2873..78ca8f7 100644
--- a/perl/t/06_stream_unpack2.t
+++ b/perl/t/06_stream_unpack2.t
@@ -30,6 +30,7 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
 
     note "packed size: ", length($packed);
     open my $stream, '<:bytes :scalar', \$packed;
+    binmode $stream;
     my $buff;
     while( read($stream, $buff, $size) ) {
         note "buff: ", join " ", map { unpack 'H2', $_ } split //, $buff;