Select Code to Download

while ($odbc->FetchRow())
        {
...
            }
            print "\n-----------------------------------------\n";
        }

#! c:/perl/bin/perl.exe -slw
#
...
    }
}
$db->Close();