sub at_exit {
    my ($callback) = @_;
    bless 'At::Exit', \$callback;
};

sub At::Exit::DESTROY {
    $_[0]->();
};