#!/usr/bin/perl  -s

#use Data::Dumper;
use mp;
#print Dumper(mp::hv2catalog($filename)); 

if($ind){
  open(C,$ind) or die;
  while(<C>){ 
     if (/(.+):([^_].+):1/){ 
        print mp::hv2xmlcatalog($2,$1);}}}
else { 
  for $filename (@ARGV){ print mp::hv2xmlcatalog($filename); }
}