#!/usr/bin/env perl

use strict;
use warnings;
use Path::Tiny;
use feature qw(say);
use open ':encoding(UTF-8)';

my $file = q(data.txt);

path($file)->spew_utf8(q(Lorem ipsum kizuaheli));

my $digest = qq($file\.digest);

path($digest)->spew_utf8( path($file)->digest );

# path ($digest)->append_utf8("nose");

if ( path($file)->digest ne path($digest)->slurp_utf8 ) {
    say q(Something went wrong!);
}
else {
    my $fh = path($file)->filehandle( { locked => 1 }, "<" );
    say <$fh>;
}

__END__