[/c]
if (!defined $model) {   # vielleicht auch "if (! $model) {" 
    die "Model not present";
}
# Und dann versuchsweise:
print 'model.Type ', $model->Type, "\n";
print 'EpfcModelType.EpfcMDL_PART ', EpfcModelType->EpfcMDL_PART, "\n";
print 'EpfcModelType.EpfcMDL_ASSEMBLY ', EpfcModelType->EpfcMDL_ASSEMBLY, "\n";