#! /usr/bin/perl -w
use strict;

my $file = "raw_text";
open(FILE, "< $file") or die "Cannot open '$file': $!";
my $contents = join '', <FILE>;
print "HERE ARE THE CONTENTS OF $file:\n";
print $contents;