while (@row = $sth->fetchrow_array()) {
		@s = unpack('C*',$row[4]);
		$sid = "0x";
		foreach $s (@s) {
			$sid .= sprintf "%2.2x", $s;
		}
		$row[4] = $sid;
		#print $server,':',$db,':',join(':',@row),"\n";

		$sth_ins->execute($server,$db,@row);
	}