use IPC::Open2;

open2(*README, *WRITEME, $program);
print WRITEME "here's your input!\n";
$output = <README>;

close(README);
close(WRITEME);