Select Code to Download

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

line_no
480    print $fh_debug "jj\n";
...
493            print STDERR "\nCould not close \$fh_debug: $!\n";
494            die;
495        }

jj
$fh_debug is defined

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.