use Fcntl;

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