##
use IO::File;
Dumper->print($quux);
##
##
print Data::Dumper->new([$quux],['quux'])->Dump(),"\n";
##
##
# we have large cyclic structures: disable pretty indent, enable purity mode.
print Data::Dumper->new([$quux],['quux'])->Purity(1)->Indent(1)->Dump(),"\n";