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			}

##</code><code>##

Arrived in the custom_functions::master_log subroutine.
The close function call was successful.
Arrived in the custom_functions::master_log subroutine.
Could not close $fh_debug: Bad file descriptor
Died at /u1/stat/global/bin/perllib/master_log.pm line 498.
Can't use an undefined value as a symbol reference at /u1/stat/global/bin/perllib/master_log.pm line 483.

##</code><code>##

480		my $subroutine_name = (caller(0))[3];
481		my $invoker = (caller(1))[3];
482		print “Arrived in the $subroutine_name subroutine.\n”;
483		print “My invoker is $invoker.\n”;