sub is_dbgview { return -e 'dbgviewmode.yes'; }  
sub dbg_print (@) {
    my @inpar = @_;
    return 0 if not is_dbgview();
    # use caller() to figure out out procedure call stack 
    # with program names and line numbers
    my $caller = ....;
    print '<FONT COLOR=firebrick SIZE=-1>', 
          "DBG message from $caller...:,  @inpar,
          '</FONT>'; 
}