use Palm::PDB;
            use Palm::Address;
            my $pdb = Palm::PDB->new();
#             $pdb->Load();
            $pdb->RegisterPDBHandlers("Palm::Address", "");
            my $record = undef;
                         ...
                         ...
                         ...
            $pdb->Write( $self->{CONFIG}->get_ini_value("TEMP_DIR")."/AddressDB".$Lanas::Base::key{USER}.".pdb");