in reply to Run before exit

Just add a block like this: 
END {
   call_your_sub_here()
}

[download]

Replies are listed 'Best First'.
Re: Run before exit
by b10m (Vicar) on Jun 16, 2008 at 16:02 UTC

    Wouldn't that be executed as well with die()?

    --
    b10m
[reply]
[d/l]
      Yes. I didn't parse the "only" in the original question correctly. If it should really only be triggered by exit, it might be useful to override it (CORE::exit IIRC).
[reply]
[d/l]
        (CORE::exit IIRC)

        Use CORE::GLOBAL::exit() to override — CORE::exit() is the original exit builtin that you'd typically call from within your redefined exit routine...

        Update: an example: 

        #!/usr/bin/perl

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

exit 99;

        [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom