my @O_my=<DATA>;
eval("seek DATA,0,0;");
print @O_my;