Hi,

You want something like

#!/usr/bin/perl -w

use strict;

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

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

        $scalar=<FILE>;
}
print $scalar;
[download]

hope this helps

thinker