Select Code to Download

use strict;
use warnings;
...
   or die("Can't redirect errors to file 'tracefile': $!\n");

Parse::RecDescent->new('parse:')->parse('');

>perl 659805a.pl
printing code (3018) to RD_TRACE
...
 1|  parse   |>>Matched rule<< (return value:       |
  |          |[parse])                              |
 1|  parse   |(consumed: [])                        |

use strict;
use warnings;
...
$tracerulename = 'tracerulename';
$tracelevel    = 'tracelevel';
write TRACE;

>perl -v

...

>type tracefile
tr|tracerulen|tracemsg                              |