my $fifo = "fifo";
require POSIX;
POSIX::mkfifo($fifo, 0666) or die "can't mknod $fifo: $!";
warn "$0: created $fifo as named pipe\n";
sysopen(FIFO, $fifo, O_WRONLY) or die "can't write $fifo: $!";
close FIFO;