use strict;
use warnings;

my $exit_normally = 0;
sub exit_handler;
END { exit_handler; }

# other use directives

sub exit_handler { ... }

...

$exit_normally = 1;
__END__