exit.pl

#!/usr/bin/env perl
use 5.12.1;
use warnings;
#use POSIX qw/_exit/;

package Foo {
    use Moose;

    sub DEMOLISH {
        my ( $self, $in_global_destruction ) = @_;
        
        say $in_global_destruction ? "*Poof*" : "Gasp!";
    }
}

my $foo = Foo->new;
exit 0;
#_exit 0;