open EXT,"|extprog";
while (<>)

##</code><code>##

open EXT,"|extprog";
while (<EXT>)