use strict;
use warnings;

use Log::Log4perl qw / :easy /;
use Log::Dispatch::Handle;

open my $fh, ">", undef;
#autoflush $fh 1;

my $app = Log::Log4perl::Appender-> new( 
    "Log::Dispatch::Handle", 
    handle => *$fh{ IO });

__END__

The IO::File class is missing the 'print' method