open INFILE, "<$infile";
@text=<INFILE>;
close INFILE;