Select Code to Download

use strict;
use warnings;
use autodie;

sub _log_object {
    my ($obj) = @_;
...
    print $log_fh 'Some object: ', Dumper($obj);
    return;
}