#!/usr/bin/perl

use CGI qw/:standard :html3/;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use DBD::mysql;

my $DBName = "test";
my $DBHost = "localhost";
my $DBUser = "test";
my $DBPass = "dev";
my $DBType = "mysql";
my $DBPort = "3306";

sub db_connect {

    my ($result);

    $result = DBI->connect( "DBI:$DBType:database=$DBName;host=$DBHost
+",
    "$DBUser", "$DBPass", { 'RaiseError' => 0 } ) || &error("Unable to
+ connect to database");

    return $result;

}

sub db_query {

    my ($result, $query);

    $query = $_[0];

    $result = &db_connect->prepare($query) || &error("Unable to query 
+the database");
    $result->execute();

    return $result;

}

# outer loop
my $query1 = &db_query("SELECT id, title FROM sections");
while (my $rows1 = $query1->fetchrow_hashref()) {
    print "Section: " . $rows1->{title}."\n";

    my $sectionid = $rows1->{id};

        # inner loop
        my $query2 = &db_query("SELECT title FROM pages WHERE sectioni
+d = $sectionid");
        while (my $rows2 = $query2->fetchrow_hashref()) {
            print "-> Page: " . $rows2->{title}."\n";
        }

}
[download]