Re: find the state from lat and lon coordinates

use Geo::E00;

$file = "st99_d00.e00";

$io = new Geo::E00;

$io->open($file);

$e00data = $io->parse();
$arcdata = $e00data->{arc};
# $cntdata = $e00data->{cnt};

foreach $arc (@$arcdata) {
foreach $ll (@{$arc->{coord}}) {
print OUT sprintf("%f,%f\n",$ll->{x},$ll->{y});
}
print OUT "\n";
}