sub new {
   my ($class, @args) = @_;
   my $destination_class = figure_destination_class(@args); # or whatever
   my $self = bless {}, $destination_class;
   $self->initialize(@args);
   return $self;
}