>>90
open (FILE, $file) || die("Can't Open FILE");
@DATA = <FILE>;
close (FILE);