Select Code to Download

(A,(B,C))

$VAR1 = {
          'LEFT' => {
...
                                  }
                     }
        };

#!/usr/bin/perl

...
  return $tree;
}