while(<DATA>){last};while(-<DATA>){print}
__DATA__
Just another Perl hacker
This gotcha bites too many...