#!/usr/bin/perl  -s

use mp;

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