unless (open ($fh_debug, ">>", $self -> {debug_file_name}))
	{
		print STDERR "\nCould not open \$fh_debug: $!\n";
		die;
	}

##</code><code>##

line_no
480	print $fh_debug "jj\n";
481
482	print $fh_debug "\$fh_debug is defined\n" if (defined ($fh_debug));
483
484	if (close ($fh_debug))
485
486		{
487			<do some stuff>;
488		}
489
490	else
491
492		{
493			print STDERR "\nCould not close \$fh_debug: $!\n";
494			die;
495		}

##</code><code>##

jj
$fh_debug is defined

##</code><code>##

Could not close $fh_debug: Bad file descriptor
Died at /u1/stat/global/bin/perllib/master_log.pm line 494.
Can't use an undefined value as a symbol reference at /u1/stat/global/bin/perllib/master_log.pm line 480.