use BerkeleyDB;  # CPAN module
use Common;      # My module

my $cursor = $db->db_cursor();                 # BerkeleyDB function
my $var    = &BD_Read($FH,$db,\$key,\$data);   # my subroutine BD_Read