use MyPackage;
my $newest_instance;
after BUILD => sub {
  $newest_instance = shift;
};

##</code><code>##

if ($newest_instance) {
  $newest_instance->status("killed");
  $newest_instance->end;
}