sub _log_object {
    my ($obj) = @_;
    open my $log_fh, '>>', '/some/log/file.log';
    print $log_fh 'Some object: ', Dumper($obj);
    return;
}