while( <SQL> ) {
    my( $type ) = m[...];
    my $inst;
    eval{ $inst = $type->new(); 1 };
    die "Derived type $type not available:'$@'" if $@;
    push @instances, $inst;
}