use strict;
use warnings;

use vars '$tracemsg';
use vars '$tracecontext';
use vars '$tracerulename';
use vars '$tracelevel';

open (TRACE, ">&STDERR");
format TRACE =
@>|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracelevel, $tracerulename, '|', $tracemsg
  | ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
              $tracemsg
.

$tracemsg      = 'tracemsg';
$tracecontext  = 'tracecontext';
$tracerulename = 'tracerulename';
$tracelevel    = 'tracelevel';
write TRACE;

open(TRACE, ">tracefile") or die;

$tracemsg      = 'tracemsg';
$tracecontext  = 'tracecontext';
$tracerulename = 'tracerulename';
$tracelevel    = 'tracelevel';
write TRACE;