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