unless (-e $file) {
        open(FH,">", "$file") or die $!;
}

##</code><code>##

use Fcntl;
# Open $file for writing unless it already exists
sysopen(FH, $file, O_WRONLY|O_EXCL|O_CREAT) or die $!;