Pari's lift function "lifts" a modular residue back into the integers.

? lift( 1 / Mod(3,17) )
%1 = 6
[download]

Presumably it is available from the Math::Pari bindings somehow (I only know pari, not the Perl bindings).