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