use Data::Dumper;
local $Data::Dumper::Useqq = 1; # nicht-druckbare Zeichen lesbar ausgeben
print Dumper $message;