print Dumper $quux;

##</code><code>##

use IO::File;
Dumper->print($quux);

##</code><code>##

print Data::Dumper->new([$quux],['quux'])->Dump(),"\n";

##</code><code>##

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