http://qs321.pair.com?node_id=358427

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