perl library read data from parts of the __DATA__ section