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

##</code><code>##

use Fcntl;

sysopen(FH, $file, O_WRONLY|O_TRUNC|O_CREAT, 0600)
        or die $!;