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