use IO::All;
my ($io, $contents);
$io = io 'file.txt';
$contents < $io;