Help for this page

Select Code to Download

Select or download this

use warnings;
use 5.014;  # for s///r
...
    $lat += (rand(2)-1)/1000;
    $lon += (rand(2)-1)/1000;
}