Help for this page
#-------------------------------------------------------------- # my module. ... } 1;
#!/usr/bin/perl -w ... $dbh ->disconnect();