# Basisklasse ResponseHandler sub data{ my $self = shift; local $/ = undef; $self->{BODY} = ; }