I googled:
perl inverse gaussian distribution
and followed the link trail to:
http://home.online.no/~pjacklam/notes/invnorm/impl/acklam/perl/ltqnorm.pl

Though I haven't looked at it in detail, it looks like it's what you want.

Update: Wrapped it in a test script -- it's what you want.