sub log_to_handle {
        my ($fh, $heading, $message) = @_;
        print $fh "$heading: $message", $/;
    }