open my $fh, $file_name or die "Cannot open $file_name $!";
   read $fh, my $str, -s $fh;