my $control = sub{
    my $self = shift;
    if( $self->param('pub') ){
        my $hunt = $self->thaw(*STDIN);
        my $h = $hunt->{1};
        my $url = $h->{url};
        $self->{BIN}{$url} = $h;
        
        # BIN zurückschreiben
        my $fh = IO::File->new;
        $fh->open("$self->{FILEDIR}/dbf.bin", O_BINARY|O_RDWR|O_TRUNC|O_CREAT) or die $!;
        $self->freeze($self->{BIN}, $fh );
        $self->{CONTENT} = "Written: $url";
    }