Select Code to Download

use IPC::Open2;

open2(*README, *WRITEME, $program);
...

close(README);
close(WRITEME);