$ strace -e open perl -e 'open $f, "+>", undef' 2>&1 | tail -n 1
open("/tmp/PerlIO_vfNALU", O_RDWR|O_CREAT|O_EXCL|O_LARGEFILE, 0600) = 3