$ perl -le '{local$/; $_=<>;}print /^[\x00-\xA5]/ ? "binary" : "text" ' \
  /mnt/win/WINDOWS/system32/command.com

text