#!/usr/bin/perl -w

use strict;

open FILE, "DATA.DAT" or die $!; 

my $scalar;
{
        local $/=undef; # slurp mode on

        $scalar=<FILE>;
}
print $scalar;