// Obtain file ID earlier do some operation to the file

// ...

// See if the file was opened in binary mode 

if( `isFileBinary $fileID` == true ) 

    print "File is a binary file";
  else 
   print "File is a text file";