Help for this page

Select Code to Download

Select or download this

# Non blocking open
open (FH, "+<", $config->{'pipe'} ) || die "Unable to open $config->{'
+pipe'}";
...
    }

} # while 1