Select Code to Download

#!/usr/bin/perl 
use utf8;
...
    ok (defined $AllDbText_ref, "Results set obtained from $dbname");
    ok ($dbh->disconnect, "Disconnected from $dbname");
}