use POSIX qw[ _exit ];

_exit( 123 );

##</code><code>##

undef $objectNeedingCleanup;
_exit( 123 );