open(DB,"<$F")

#compare to:

open my $INFILE, '<', $fname
  or die "Couldn't open $fname: $!"