open my $F, "<", $name or die 1;