sub _hook {

sub _hook {

    my ( $self, $filename, $buffer, $bytes_read, $data ) = @_;

    my ( $self, $filename, $buffer, $bytes_read, $data ) = @_;

    $filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename

    $filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename

    $self->_compute( $filename, $buffer );

    $self->_compute( $filename, $buffer );

    my $fh = $self->_fh( $filename ) // $self->_create_file( $filename );

    my $fh = $self->_fh( $filename ) // $self->_create_file( $filename );

    print $fh $buffer if $fh;

    print $fh $buffer if $fh;