stub pg 9.0 translation code in perl, to be translated