sub new { bless {}, __PACKAGE__ }

##</code><code>##

sub new {
   my $class = shift;

   if ( $class ne __PACKAGE__ ) {
       die "Class $class attempts to inherit from final class, ' . __PACKAGE__;
   }

   # ...
}