#!/usr/bin/perl -s -I /home/mp/new_site/mp
use mp::cat;
$/='</entry>';
while(<>){
  print mp::cat::fichacat2cal($_);
}