Select Code to Download

sub inithash {
    my $h= shift;
...
    %$h= ( 'a'=>0, ... ); #alternative to the previous line
    }

>perl -wMstrict -le
"use Data::Dumper;
...
          'a' => '1',
          'b' => '2'
        };