tie (my @ura, 'TieLog', { url => '/praxis', callback => \&cb_array}) || die "Fehler: $@";
print "============= Daten kommen ==============\n\n";
tied(@ura)->callback;