use warnings;
use strict;
use Fcntl;
my $SYSOPEN_MODE = O_WRONLY|O_CREAT;
if(exists $Fcntl::{'O_NONBLOCK'})
{
  print "Exists\n";
  $SYSOPEN_MODE |= &{ $Fcntl::{'O_NONBLOCK'} };
}