package B;
require 'standard.pl';
sub new {
#  [snip]
  bless ($self, $class);
  do_something(); # subroutine in standard.pl
  return $self;
}