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

// ...

// See if the file was opened in write mode

if( `isFileWriteable $fileID` == true ) 

   print "Can write to the file";

else 

 print "Cannot write to the file";