# Constructor # Usage: $MyDB = DB::MyDB->dbconnect("db", "username", "pwd") sub dbconnect { # stuff } # Usage: $tbl = $MyDB->selectall_tbl($select_statement) # where $tbl is a 2D array sub selectall_tbl { # stuff } 1 ;