Select Code to Download

############################################################
#
...
# is the Tk interface.
#
############################################################

sub get_subject_list
{
...
    $dbh->disconnect();

}