66 	$content = <>;

    66 	$content = <>;

    67 }

    67 }

    68 

    68 

    69 $::res = {}; # parse tree result

    69 $::res = {}; # parse tree result

    70 my $p_res = $parser->file($content);

    70 my $p_res = $parser->file($content);

    71 my $storable = $opts->{o};

    72 my $storable = $opts->{o};

    72 store($::res, $storable) if (defined $storable && length($storable) > 0);

    73 store($::res, $storable) if (defined $storable && length($storable) > 0);

    73 print Dumper $::res if ($opts->{d});

    74 print Dumper $::res if ($opts->{d});

    74 

    75 

    75 

    76