perl -wle "use Fcntl;$n=O_CREAT | O_NONBLOCK | O_RDWR;print $n;"