package my_module ; use strict ; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); $VERSION = 1.00; @ISA = qw(Exporter); @EXPORT = qw(&db_open &db_close) ; @EXPORT_OK = qw(&db_open &db_close &db_store &db_fetch &db_keys); #your subs go here 1;