open(FILE,"<$file") || die $!;
read FILE, my $data, -s $file;
close(FILE);