Select Code to Download

print Dumper $quux;

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

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

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