my $grammar = <<'END_OF_GRAMMAR';
    
    #Start up action(executed in parser namespace):
    { 
        use 5.012;  #So I can use say() 
    }

    startrule : from_clause 

    from_clause : 'from' dir(s) 
                { 
                    say "-->$item[0]<--";
                    say "-->@{$item[-1]}<--"; 
                }

    dir : m{/}

END_OF_GRAMMAR


my $parser = Parse::RecDescent->new($grammar);
$parser->startrule("from ./hello"); 

--output:--
(blank)