#!/usr/bin/perl

BEGIN {
    *CORE::GLOBAL::exit = sub (;$) {
        print STDERR "in overridden exit(): @_\n";
        CORE::exit(88);
    };
}

exit 99;