#!/usr/bin/perl -w
use strict;
use IO::File;

my $fifo = "fifo";
sysopen(FIFO, $fifo, O_RDONLY) or die "can't read $fifo: $!";
close FIFO;