Select Code to Download

#!/usr/bin/env perl

...

Parse::RecDescent->PreCompile($grammar, 'NestedListParser')
    or die("Bad Grammar\n");

use NestedListParser qw( );

...
    $self->{list} = $parser->parse($file)
        or die("Bad data\n");
}