use Data::Dumper;
$Data::Dumper::Useqq = 1; # print non-printable chars
warn Dumper $blackbox;