Select Code to Download

#!/bin/env perl

...

    print Data::Dumper->Dump([$href], [qw/href/]);
}

$ perl test.pl
$a = [
...
          'two' => 0
        };
$