if($^O =~ /mswin32/i) {
  # employ the Win32::Fmode functions
  }
else {
  # employ the Fcntl flags/macro
  }