use strict;
use warnings;

use VCSConfigParser qw( );
use Data::Dumper    qw( Dumper );

#$::RD_TRACE = '';

my $vcs_parser = VCSConfigParser->new();
my $vcs_config = do { local $/; <DATA> };

my $tree = $vcs_parser->parse( $vcs_config );
print Dumper $tree;

__DATA__
include "types.cf"
include "LBSybase.cf"
include "OracleTypes.cf"

cluster vcs (
        UserNames = { vcs = X1Nh6WIWs6ATQ }
        Administrators = { vcs }
        CounterInterval = abc
        )

system njengsunvcs1 (
        )

system njengsunvcs2 (
        )