line_no

480		my $subroutine_name = (caller(0))[3];
481		print “Arrived in the $subroutine_name subroutine.\n”;
482
483		print $fh_debug "jj\n";
484
485		print $fh_debug "\$fh_debug is defined\n" if (defined ($fh_debug));
486
487		if (close ($fh_debug))
488
489			{
490					print “The close function call was successful.\n”;
491					<do some stuff>;
492			}
493
494		else
495
496			{
497				print STDERR "\nCould not close \$fh_debug: $!\n";
498				die;
499			}