use Fcntl;

##</code><code>##

500,0 sauoq@fozzie:~$ perl -e 'sysopen(OH, "./foo", O_CREAT) or die $!'
No such file or directory at -e line 1.
501,2 sauoq@fozzie:~$ perl -MFcntl -e 'sysopen(OH, "./foo", O_CREAT) or die $!'
502,0 sauoq@fozzie:~$