use strict;
use warnings;

use FileHandle;
use IPC::Open2;

my $pid = open2(*Reader, *Writer, "perl dialog.pl");

print Writer "42\n";
chomp( my $got = <Reader> );
print $got, $/;