Select Code to Download

    while ($out !~ m/^[sSfF]{1}$/)
    {
...
            
        }
    }

                if ($overwrite =~ (m^/[nN]{1}$/))
                {
                    redo FILENAME;
                }