my $text = "employee Joe 10";

my $parser = Parse::RecDescent->new($grammar) 
    or die "Bad grammar!\n";

defined $parser->employee_info($text) 
    or die "Text doesn't match";