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