opendir THEDIR, "$ipath";
$xml = $ipath.(grep (/$str/, readdir THEDIR))[0];
closedir THEDIR;

##</code><code>##

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

##</code><code>##

$config->{'Vehicle'} = [$config->{'Vehicle'}] if ref($config->{'Vehicle'}) ne 'ARRAY';