my $sql = "exec pr_SelectPhysicalLocation $Build,$operatingsystem"; if ($mydb->Sql($sql)) { Win32::ODBC::DumpError(); } if ($mydb->FetchRow()) { %Info = $mydb->DataHash(); $SourcePath = $KitInfo{PhysicalLocation}; $Baseline = $KitInfo{BaselineVersionShortName}; writelog(info,"destdir = $SourcePath"); } $mydb->Close();