Help for this page
use MyPackage; my $newest_instance; after BUILD => sub { $newest_instance = shift; };
if ($newest_instance) { $newest_instance->status("killed"); $newest_instance->end; }