use IPC::Open2;

open2(*README, *WRITEME, $program);
print WRITEME "some input...\n";
$output = <README>;
close(WRITEME);
close(README);