Select Code to Download

use strict;
use warnings;
...
    $dbh->rollback ();
    die $@;
}

use strict;
use warnings;
...
};

print "Added $entries rows to the People table\n";

$entries = $sth->execute_array ({}, [keys %people], [values %people]);

#1
my $sql = qq{SELECT name, age FROM People WHERE name LIKE '%e' AND age
+ < 25};
...
        printf "%-10s %3d\n", @{$row}{'name', 'age'};
    }
};