our $tcClassGrammar = q{
    classStart : class(s)
    class : 'class' classinfo stats  stats2 stats3 #{print "$item[0]\n"; 1}
    classinfo : /.+?\n/
    stats : 'Sent' /\d+/ 'bytes' /\d+/ 'pkts' '(dropped' /\d+/ ',' 'overlimits' /d+/ ')' { print "item[0]"; 1}
    stats2 : /.+?\n/
    stats3 : /.+?\n/
};