sub binary {
   binary my ($n) = @_;
...