my %error;

sub error {
    return $error{$$};
}

sub wo_was_daneben_geht {
    $error{$$} = 'uiui';
    return;
}