Select Code to Download

# issue query
my $sth = $dbh -> prepare("SELECT uid, fname, lname FROM users") || &b
+ail_out("Error: cannot prepare DB query");
$sth -> execute() || &bail_out("Error: cannot execute DB query");

while (@rray = $sth -> fetchrow_array) {
    $row{uid} = $rray[0];
...
foreach (@rows) {
    print "$_\n";
}

while (@rray = $sth -> fetchrow_array) {
    $record = "record_$i";
...
while (($key, $value) = each(%hash)) {
    print "key = $key, value = $value\n";
}

while (@rray = $sth -> fetchrow_array) {
    $record = "record_$i";
...
while (($key, $value) = each(%hash2)) {
    print $hash2{$value} -> {fname};
}