Select Code to Download

while (my $row = <$FILE>) {
    open my $fh1, ">", "Bing/1Parsed/Html3/$file.html" or die("Could n
+ot open file. $!");