#!/usr/bin/perl

use strict;
use warnings;
use Fcntl;

my $FILE = 'foobarbaz';

umask 0;
-e $FILE && unlink $FILE;
sysopen my $fh, $FILE, O_CREAT, 0777 or die "$!";