My intesnsion is to generate sequence diagrams from perl modules/scripts"

I am manually running the below command:- "perl -d:CallSeq Session.pm" this will generate the tmon.out And then I am running in the current directory the following command "perl /home/sbmp/UML/UML/gs.pl UML::Sequence::PerlSeq methods Session.pm >aa.xml" this is equivalent to "perl genericseq.pl UML::Sequence::PerlSeq methods Session.pm >aa.xml" I copied genericseq.pl gs.pl...and added few print statements. As I was unable to get anything "genericseq.pl", so copied and renamed.

Out put is this!!
<?xml version='1.0' ?>
<sequence>
<class_list>
  <class name='Secana' born='0' extends-to='0'>
    <activation_list>
      <activation born='0' extends-to='0' offset='0' />
    </activation_list>
  </class>
</class_list>

<arrow_list>
</arrow_list>
</sequence>
[download]

if i get the xml format file then I can convert it to png or svg using existing scripts The "methods" file contais the following :- ======================== Apache::Session::File File::Path Secana::UI::Logger ======================== Session.pm is one of the module, but I have other complex modules, which inherit multiple modules. I don know wher I am doing wrong... or the prog works for complex inheritance r not?