$query->{sid} = time() . "XY" . rand(1); $query->{sid} =~ s/\./PT/g;