Select Code to Download

while ($EDS_DB->FetchRow())
{
...
        print qq(Server Name is $srv_name,$platform,$San\n);    
        
}