use strict; use warnings; seek DATA,0,0; print scalar ; __DATA__