use strict; use warnings; seek( DATA, 0, 0 ); print while( ); __DATA__