Simple perl exceptions