try this source and wonder why perl hangs or reports bad file number!
any help is appreciated.
TIA
[log in to unmask]


#!/usr/local/bin/perl
#
$fname="Pipe";

unless (-p $fname) {
  unlink $fname;
  system('mkfifo', $fname) &&
    system('mknod', $fname, 'p') &&
    die "can't create $fname: $!!\n";
  }

# uncomment one of the open commands to see the difference

# open( PIPE1, "+>$fname") || die "Could not open the named pipe -
$!!\n";
# will print error:
# Could not open the named pipe - Bad file number!

# open( PIPE2, ">$fname") || die "Could not open the named pipe -
$!!\n";
# program hangs