here is the code and its printing the whole document, 
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $file = 'Summary';
my $t = XML::Twig->new(twig_handlers => 
                { docsum => \&docsum, 
                  para => sub {$_->set_gi('Item')}
            }
            );
$ty->parsefile($file);
$ty->flush,"\n";

sub docsum{
    my ($ty,$docsum) = @_;
    $docsum->set_gi('docsum');
    my $title = $docsum->first_child('Item');
    my $and = $title-{'att'}->{'Name'};
    $docsum->flush;
}

[download]
Here is the XML file 
<?xml version="1.0"?>
<!DOCTYPE eSummaryResult PUBLIC "-//NLM//DTD eSummaryResult, 29 Octobe
+r 2004//EN" "http://www.ncbi.nlm.nih.gov/entrez/query/DTD/eSummary_04
+1029.dtd">
<eSummaryResult>
<DocSum>
    <Id>25</Id>
    <Item Name="Name" Type="String">ABL1</Item>
    <Item Name="Description" Type="String">v-abl Abelson murine leukem
+ia viral oncogene homolog 1</Item>
    <Item Name="Orgname" Type="String">Homo sapiens</Item>
    <Item Name="Status" Type="Integer">0</Item>
    <Item Name="CurrentID" Type="Integer">0</Item>
    <Item Name="Chromosome" Type="String">9</Item>
    <Item Name="GeneticSource" Type="String">genomic</Item>
    <Item Name="MapLocation" Type="String">9q34.1</Item>
    <Item Name="OtherAliases" Type="String">ABL, JTK7, bcr/abl, c-ABL,
+ p150, v-abl</Item>
    <Item Name="OtherDesignations" Type="String">Abelson murine leukem
+ia viral (v-abl) oncogene homolog 1|BCR/ABL (major breakpoint) fusion
+ peptide|bcr/c-abl oncogene protein|proto-oncogene tyrosine-protein k
+inase ABL1</Item>
    <Item Name="NomenclatureSymbol" Type="String">ABL1</Item>
    <Item Name="NomenclatureName" Type="String">v-abl Abelson murine l
+eukemia viral oncogene homolog 1</Item>
    <Item Name="NomenclatureStatus" Type="String">Official</Item>
    <Item Name="TaxID" Type="Integer">9606</Item>
    <Item Name="Mim" Type="List">
        <Item Name="int" Type="Integer">189980</Item>
    </Item>
    <Item Name="GenomicInfo" Type="List">
        <Item Name="GenomicInfoType" Type="Structure">
            <Item Name="ChrLoc" Type="String">9</Item>
            <Item Name="ChrAccVer" Type="String">NC_000009.10</Item>
            <Item Name="ChrStart" Type="Integer">132579088</Item>
            <Item Name="ChrStop" Type="Integer">132752882</Item>
        </Item>
    </Item>
</DocSum>

<DocSum>
    <Id>27</Id>
    <Item Name="Name" Type="String">ABL2</Item>
    <Item Name="Description" Type="String">v-abl Abelson murine leukem
+ia viral oncogene homolog 2 (arg, Abelson-related gene)</Item>
    <Item Name="Orgname" Type="String">Homo sapiens</Item>
    <Item Name="Status" Type="Integer">0</Item>
    <Item Name="CurrentID" Type="Integer">0</Item>
    <Item Name="Chromosome" Type="String">1</Item>
    <Item Name="GeneticSource" Type="String">genomic</Item>
    <Item Name="MapLocation" Type="String">1q24-q25</Item>
    <Item Name="OtherAliases" Type="String">RP11-177A2.3, ABLL, ARG</I
+tem>
    <Item Name="OtherDesignations" Type="String">Abelson murine leukem
+ia viral (v-abl) oncogene homolog 2|Abelson-related|v-abl Abelson mur
+ine leukemia viral oncogene homolog 2</Item>
    <Item Name="NomenclatureSymbol" Type="String">ABL2</Item>
    <Item Name="NomenclatureName" Type="String">v-abl Abelson murine l
+eukemia viral oncogene homolog 2 (arg, Abelson-related gene)</Item>
    <Item Name="NomenclatureStatus" Type="String">Official</Item>
    <Item Name="TaxID" Type="Integer">9606</Item>
    <Item Name="Mim" Type="List">
        <Item Name="int" Type="Integer">164690</Item>
    </Item>
    <Item Name="GenomicInfo" Type="List">
        <Item Name="GenomicInfoType" Type="Structure">
            <Item Name="ChrLoc" Type="String">1</Item>
            <Item Name="ChrAccVer" Type="String">NC_000001.9</Item>
            <Item Name="ChrStart" Type="Integer">177465358</Item>
            <Item Name="ChrStop" Type="Integer">177343379</Item>
        </Item>
    </Item>
</DocSum>

<DocSum>
    <Id>90</Id>
    <Item Name="Name" Type="String">ACVR1</Item>
    <Item Name="Description" Type="String">activin A receptor, type I<
+/Item>
    <Item Name="Orgname" Type="String">Homo sapiens</Item>
    <Item Name="Status" Type="Integer">0</Item>
    <Item Name="CurrentID" Type="Integer">0</Item>
    <Item Name="Chromosome" Type="String">2</Item>
    <Item Name="GeneticSource" Type="String">genomic</Item>
    <Item Name="MapLocation" Type="String">2q23-q24</Item>
    <Item Name="OtherAliases" Type="String">ACTRI, ACVRLK2, ALK2, FOP,
+ SKR1</Item>
    <Item Name="OtherDesignations" Type="String">activin A receptor, t
+ype II-like kinase 2|activin A type I receptor|hydroxyalkyl-protein k
+inase</Item>
    <Item Name="NomenclatureSymbol" Type="String">ACVR1</Item>
    <Item Name="NomenclatureName" Type="String">activin A receptor, ty
+pe I</Item>
    <Item Name="NomenclatureStatus" Type="String">Official</Item>
    <Item Name="TaxID" Type="Integer">9606</Item>
    <Item Name="Mim" Type="List">
        <Item Name="int" Type="Integer">102576</Item>
    </Item>
    <Item Name="GenomicInfo" Type="List">
        <Item Name="GenomicInfoType" Type="Structure">
            <Item Name="ChrLoc" Type="String">2</Item>
            <Item Name="ChrAccVer" Type="String">NC_000002.10</Item>
            <Item Name="ChrStart" Type="Integer">158403035</Item>
            <Item Name="ChrStop" Type="Integer">158301206</Item>
        </Item>
    </Item>
</DocSum>

<eSummaryResult>

[download]
i want it to print in a text file with column separated by tab, but it seems flush prints out the whole document I more thing I want to ask, if we specify the attribute then I dont have to speciy its type, right?? thanks

In reply to Re^2: DTD and xml module by Anonymous Monk
in thread DTD and xml module by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.