open FH, $file or die "Can't open $file: $!";
my @lines = (<FH>)[0,1];
close FH;