Select Code to Download

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

print do{my $d=Data::Dumper->new([$foo],[qw(foo)]); $d->Indent(2); $d-
+>Purity(2); $d->Dump()};