D:\Perl\test>perl58
use subs 'exit';
sub exit{ print 'Exit override received:', @_; CORE::exit(@_); }
exit 123;
^Z
Exit override received:123