Cannot write to fifo

[Ramprasad Prasad]

How can I open multiple FIFO files in perl and print to them simultaneously

I tried a simple script does not work


#!/usr/bin/perl
use strict;

use IO::File;
$|=1;
system("rm -f /tmp/fifo1;mkfifo /tmp/fifo1");
open (OUT,"> /tmp/fifo1") || die;
for (0 .. 10){
    print "Hi $_\n";
    print OUT  "Hi $_\n";

}
close OUT;