open my $fh, "<", $txt_file or die "Cannot open $txt_file: $!";
read $fh, my $contents, -s $fh;