sub readDRC ( ) {
my ( $file  , $flag ) = @_ ;