I have a script which fails as follows when run under the debugger (i.e., just
start the script with "perl -d <script> <args>" and type "c RET") but not when
run without the debugger:

print() on unopened filehandle old_watch at
/home/jik/dev/bulkmail/bounces/filter.pl line 136, <> chunk 1.
        DB::DB called at /home/jik/dev/bulkmail/bounces/filter.pl line 111
Can't coerce GLOB to string in concat at
/home/jik/dev/bulkmail/bounces/filter.pl line 136, <> chunk 1.
        DB::DB called at /home/jik/dev/bulkmail/bounces/filter.pl line 111
Debugged program terminated.  Use q to quit or R to restart,

The code around line 136 looks like this:

   132	
   133		    $count++;
   134	
   135		    if (! &filter($_)) {
   136		      print_it:
   137			print(FILTEROUT $orig) || die "write to $filter_output: $!";
   138		    }
   139		}
   140	    }

Note that the failure happens right after a call to "goto print_it" from
elsewhere in the script.

Unfortunately, I can't find a simple test case for the problem, and I can't send
you the whole script because it's proprietary.