Select Code to Download

#!/usr/bin/perl

...
$test->{record}->{'b'} = 22;
print Dumper \$test;

$VAR1 = \{
...
                                  'b' => 22
                        }
          };