Can't locate object method "PackAppInfoBlock" via package "Palm::PDB" at /usr/share/perl5/Palm/PDB.pm line 973.

        eval "use Palm::PDB";
        eval "use Palm::Address";
        if ( ! $@ )
        {
            my $pdb = Palm::PDB->new();
            my $record = undef;
            foreach ( $self->{SQL}->fetch_db_hash ("SELECT * FROM Addressbook WHERE $where") )
            {
               
 $record = Palm::PDB->new_Record();
               
 $record->{fields}{name} = $_->{name};
               
 $record->{fields}{firstName} = $_->{firstname};
               
 $record->{fields}{company} = $_->{company};
               
 $record->{fields}{phone1} = $_->{phone_work};
               
 $record->{fields}{phone2} = $_->{phone_private};
               
 $record->{fields}{phone3} = $_->{fax};
               
 $record->{fields}{phone4} = $_->{phone_dial_switching}; #other / vermittlung
               
 $record->{fields}{phone5} = $_->{email};
               
 $record->{fields}{address} = $_->{street};
               
 $record->{fields}{city} = $_->{city};
               
 $record->{fields}{state} = $_->{state};
               
 $record->{fields}{zipCode} = $_->{zipcode};
               
 $record->{fields}{country} = $_->{country};
               
 $record->{fields}{title} = $_->{title1};
#                
 $record->{fields}{custom1}
#                
 $record->{fields}{custom2}
#                
 $record->{fields}{custom3}
#                
 $record->{fields}{custom4}
               
 $record->{fields}{note} = $_->{text};
#                
 $record->{category} = 0;
#                
 $record->{attributes}{dirty} = 1;
               
 $pdb->append_Record ( $record );
            }
            $pdb->Write( $self->{CONFIG}->get_ini_value("TEMP_DIR")."/AddressDB".$Lanas::Base::key{USER}.".pdb");
            if ( -e $self->{CONFIG}->get_ini_value("TEMP_DIR")."/AddressDB".$Lanas::Base::key{USER}.".pdb" )
            {
               
 return $self->translate("Datei wurde erstellt");
            }
            else
            {
               
 return $self->translate("Datei konnte nicht erstellt werden");
            }
        }

        eval "use Palm::PDB";
        eval "use Palm::Address";
        if ( ! $@ )
        {