If you want an even more concise way of reading a file, you can also use IO::All:

use IO::All;
$s < io('file.txt');
print $s;
# or
# print io('file.txt')->slurp;
[download]