Help for this page
Select Code to Download
Select
or
download this
use strict; ... print $e->X,',',$e->Y,' ',$e->x,',',$e->y,"\n"; }