~/hacks/gerbold/scripts $ perl s.pl
$DRIVER = [
            'Gerbold',
            'MySQL',
            'PostgreSQL'
          ];
$RULE = [
          'MySQL',
          'PostgreSQL'
        ];
$sg = 0;
$VAR1 = {
          'driver' => 'Gerbold'
        };
        ~/hacks/gerbold/scripts $