print unless $should_not_print++;
print if !$seen++;

##</code><code>##

tie my $first, "Trueonce";
while (<DATA>) {
	print if !$first;
}