Exception handling in plperl

["Jasbinder Singh Bali" <jsbali@xxxxxxxxx>]

Hi,

I have a stored procedure written in plperl. 
This procedure has series of inserts at various levels. A few inserts on certain tables invoke triggers 
that launch tools outside the domain of the database.

How can I make everything as one single transaction and simply roll back everything whenever an exception occurs.

Thanks,
Jas