perl exit snippet