END {
  warn "Global Destruction starting";
}

##</code><code>##

sub {
  my $a=SomeClass->new($arg1, $arg2, ...);
  undef $a;
  exit();
}