destroy.pl

#!/usr/bn/env perl
use 5.12.1;
use warnings;

package Foo {
    use Devel::GlobalDestruction;

    sub new { bless {}, ref $_[0] || $_[0] }

    sub DESTROY {
        return if in_global_destruction;

        say "Gasp!";
    }
}

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