Select Code to Download

sub list_entries {
    my ($filename) = @_;
...
sub update_entry {
    my ($filename, $key, %data) = @_;
    ....

package MyDatabase;

...
    delete $self->{'data'}{$key};
    $self->write_entries();
}

my $db = new MyDatabase();

...
        print "$field -> ".$entries{$_}{$field}."\n";
    }
}