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.
--