my $c = pack('W*', @binbytes);
print $out $c;