print STDERR $config->{'Vehicle'}."\n";
foreach $vehicle ( @{ $config->{'Vehicle'} } ) {