my $xml = new XML::Simple( KeyAttr=>[] );
my $data = $xml->XMLin( $config_file );
foreach my $sourcetype ( @{$data->{sourcetypes}{sourcetype}} )
{
  print "  " . $sourcetype->{name} . "\t\t" . $sourcetype->{desc} . "\n";
}