Select Code to Download

#!/usr/bin/perl
use strict;
...
sub pairs  { shift; +{ map @$_, @_ } }
sub pair   { [ @_[2, 3] ] }
sub itself { $_[1] }

$VAR1 = \{
            'SECTION' => {
...
                                                }
                             }
          };