use IO::All;
$content = io('file.txt')->slurp;
    # or
io('file.txt') > $content;
    # or
use File::Slurp;
$content = read_file( 'filename' );
    # or any number of include methods in Mason/Template/Embperl...