Select Code to Download

use strict;
use warnings;
...
$sth->execute($lon);
print STDERR "Rows using placeholders ".$sth->rows."\n";
__END__

create table lat_long(lon double not null, lat double not null, locati
+on_id integer);
insert into lat_long (location_id, lat, lon) values(44977, 48.3547, 11
+.7875);
...
insert into lat_long (location_id, lat, lon) values(71776, 48.1435, 11
+.5574);
insert into lat_long (location_id, lat, lon) values(65883, 48.1269, 11
+.6363);
insert into lat_long (location_id, lat, lon) values(65884, 48.1515, 11
+.6178);

$ perl 656378.pl
Rows not using placeholders 10
Rows using placeholders 10