open(DATA, "<", "ex902.pl");
@in = <DATA>;#read in as array
close(DATA);
open(DATA1, ">", "data.txt");
print DATA1 @in;#flush the whole array out
close(DATA1);