my $kfz = KFZ->new( machine => 'Diesel') or die $@;