use strict;
use warnings;
require IO::Handle;

my $pipe_path = "pipe";

open( my $pipe, ">", $pipe_path )
	or die "pipe open failed: $!";

$pipe->autoflush(1);

while( my $line = <> ) {
	chomp $line;
	print $pipe $line . "\n";
}

close($pipe)
	or die "Closing pipe failed: $!";