use strict;
use warnings;
while (<DATA>) {
 print
}
print "--\n";
seek(DATA,0,0);
while (<DATA>) {
 print
}
# uncomment the data block for this program to work
#__DATA__
#test
#test

##</code><code>##

readline() on unopened filehandle DATA at D:\perl\scratch\test__data__.pl line 3.
seek() on unopened filehandle DATA at D:\perl\scratch\test__data__.pl line 7.
readline() on unopened filehandle DATA at D:\perl\scratch\test__data__.pl line 8.
--