Select Code to Download

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

local $dbh->{RaiseError} = 1;
local $dbh->{PrintError} = 0;
...
    }
    die $err;
}

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 ? AND age < 
+?};
...
        printf "%-10s %3d\n", @{$row}{'name', 'age'};
    }
};