Select Code to Download

my $sth = $dbh->prepare("insert into t (foo,bar) values (?,?)");
$sth->execute("foo", 1);
$sth->execute("bar", 2);
$sth->execute("baz", 3);

while (my $record = $sth->fetchrow_hashref) {

...

  push @records, $record;
}