$query = "pr_SelectLanguages $Number, $operatingsystem";
    @results = `osql -U$DB_USERNAME -P$DB_PASSWORD -S$DB_SERVER -Q\"$query\"`;
    $langlist1 = "";
    open(dest,">langfile.txt") or writelog(logdie,"can't open langfile.txt for writing");
    for ($i=2; $i<$#results-1; $i++)
    {
        $tmp=@results[$i];
        $mytmp=@results;
        $tmp =~ s/ //;
        print "$tmp";
        print dest $tmp;
        $tmp =~ s/^\s+//;
        $tmp =~ s/ \s+$//;
        chomp($tmp);
        $langlist1 = $langlist1 . uc $tmp . " ";
        $langs=$mytmp;
    }
    $langlist1 =~ s/\s*$//;
  
    close(dest);