my $class = fetch_from_somewhere;
my $object;
eval {
	$object = $class->new;
};
if ($@) {
	eval ("use $class");
	die ($@) if $@;
	$object = $class->new;
}