use Modern::Perl;
use IO::All;

my $text < io('./czech-test.txt');

say $text;