my $lines;
$lines++ while <FILE>;

##</code><code>##

seek FILE, 0, 0;
my $first = <FILE>;