open my $F, "<", $file or die;