FILE *pif;
  pif = fopen ( $filename, 'r' );
  if ( pif == NULL ) {

    /* Problem opening file.. */
  }
  ..
  fclose ( pif );