>>222
use File::Slurp;

my $text = read_file('filename');