Add ::Exception, and use throw instead of die.
-rw-r--r-- Build.PL
drwxr-xr-x lib
drwxr-xr-x script
drwxr-xr-x t