Select Code to Download

sub db_store_event {
    my $id  = shift || 0;
...
    }
    return $ret;
}

sub impand_event {
    my ($datum, $zeit);
...

    return wantarray ? %event : \%event;
}