open EXT,"|extprog";
while (<>){
  @data = conv_data($_);
  print EXT "$data[0] $data[1]\n";
}
close EXT;