Select Code to Download

use DBI;
my $dbh = DBI->connect(...);
my $stmt = 'select id from items where foo > 42';
my @ids = map { $_->[0] } @{ $dbh->selectall_arrayref($stmt) };