#!/usr/bin/perl -w

use Errno qw(ENOENT EACCES EEXIST);
use Fcntl;
use IO::Handle;
use strict;

use warnings;
use re 'taint';

my $f;
my @body = ("{\\rtf1\\ansi\\ansicpg1250\\uc1 = \\par }}\n");

umask 077;
unlink "o";
sysopen($f, "o", O_RDWR|O_CREAT|O_EXCL, 0600);
binmode $f;
umask 02;
$f->print(@body);

seek($f, 0, 0) or die;
$! = 0;
my @x = <$f>;
$!==0 or die "error: $!";
print "ok: ".join("",@x)."\n";

seek($f, 0, 0) or die;
$! = 0;
@x = <$f>;
$!==0 or die "error: $!";
print "ok: ".join("",@x)."\n";

seek($f, 0, 0) or die;
$! = 0;
@x = <$f>;
$!==0 or die "error: $!";
print "ok: ".join("",@x)."\n";