I know I know... It's Python, not Perl but... ;-)Code mostly from ePython Documentation. added few lines just to play around. import parallel a=0 b=0 if coreid() > 0: a=sendrecv(coreid(), coreid()-1) if coreid() < numcores()-1: b=sendrecv(…