#!perl seek DATA,0,0; print __DATA__