print Data::Dumper->new([$foo],[qw(foo)])->Indent(2)->Purity(2)->Dump();