Select Code to Download

sub forward_message {
    my ($self, $message) = @_;
...
    delete $self->{activeMessages}{$message->{id_hash}};
    return 1;
}

sub message_handler {
    my ($self, $message) = @_
...

    ...
}