http://www.perlmonks.org?node_id=212016


in reply to Skip a line

just do a read in void context: 
<DATAFILEIN>;

[download]
or use a scalar as a flag.

In Section Seekers of Perl Wisdom