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