open (FILE1,"filename");
undef $/;
eval <FILE1>;
close(FILE1);