Help for this page
open EXT,"|extprog"; while (<>){ ... print EXT "$data[0] $data[1]\n"; } close EXT;
$run = "mapproject -F --D_FORMAT=\%lf -I --ELLIPSOID=HELMERT1906 -Jt31/30/1: +1 -R31/40/30/39 --MAP_SCALE_FACTOR=1.0000 "; ... while (<RESULTS>) { print $_; }