use IPC::Open2;

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