Fala Recsky, Eu tenho uma sugestão: BEGIN{ $SIG{__DIE__} = \&umount_volumes } sub umount_volumes { print "Desmontando os volumes X, Y e Z"; } Acredito que esta é a forma mais simples de resolver o seu problema. um abraço, Otávio Fernandes <otaviof at gmail.com> http://otaviof.blogspot.com/