Select Code to Download

use Win32::ODBC;
sub getChildren {
...
    }
    return $self->{ 'Children' };
}

CREATE TABLE Forest (
        ForestId   INT NOT NULL,
        Parent     INT,
        Type       CHAR( 50 ) NOT NULL,
        PRIMARY KEY( ForestID, Type ));