Select Code to Download

$ perl -Mstrict -MData::Diver=Dive -MData::Dumper -wE '
my $h; $h->{foo}->{bar}->{baz} = "qux";
...
                   }
        };

$ perl -Mstrict -MData::Dumper -wE '
my $h; $h->{foo}->{bar}->{baz} = "qux";
...
                              }
                   }
        };