package DB::MyDB ; require Exporter ; @ISA = qw(Exporter) ; @EXPORT = qw(print_tbl) ; use DBI ; use strict ; use DB::_DB ; # OO stuff # Usage: print_tbl($tbl) # where $tbl = $MyDB->selectall_tbl($select_statement) # return nice text result sub print_tbl { # stuff } 1 ;