print "Content-type: text/plain\n\n";

my $point  = "POINT( $data{'lng'} $data{'lat'} )";
my ($usrn) = $dbh->selectrow_array("SELECT idUSRN FROM USRN WHERE idUSRN > 0 ORDER BY ST_Distance_Sphere( ST_GeomFromText( ?, 4326 ), center ) LIMIT 1", undef, $point);
#my ($usrn) = $dbh->selectrow_array("SELECT idUSRN FROM USRN LIMIT 1");

print $dbh->errstr;

print "\n$point $usrn\n";
print "SELECT idUSRN FROM USRN ORDER BY ST_Distance_Sphere( ST_GeomFromText( '$point', 4326 ), center ) LIMIT 1";
exit;