seek DATA, 0, 0; print while ; __DATA__