open IN, "TEST";
  while( <IN> ) { $variable = $_; }
close IN;