close(F);
close(*G);
my $f;
close($f);
close(*$f);
close()
