Select Code to Download

mkfifo foobar;
echo "this is a test of the emergency fifo system" > foobar;

use IPC::Open2;
open(my $fifo, "<", "foobar") or die $!;
my $o; open(my $fh, ">", \$o) or die $!;
open2($fh, $fifo, "/bin/echo") or die $!;
print $o;