# Response als Rohdaten ausgeben
# Optional FileHandle als Argument
sub print_rawdata{
    my $self = shift;
    my $fh   = shift || *STDOUT;
...