in reply to Changing the return number for "die"

Or possibly look at exit $code. 
------------
:Wq
Not an editor command: Wq

[download]

In Section Seekers of Perl Wisdom