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