Help for this page

Select Code to Download

Select or download this

use IPC::Open2;
local (*Reader, *Writer);
...

close Reader;
waitpid($pid, 0);    #makes your program cleaner

Select or download this

use IPC::Open2;
local (*Reader, *Writer);
...
close Reader;
waitpid($pid, 0);
print "sum is $sum\n";