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