Bio::ASN1::EntrezGene parse so slowly?

  I want to parse a file "gene_info" from NCBI. The format of Gene in NCBI is ASN1, right? So I used Bio::ASN1::EntrezGene. But it didn't work properly/too slow. The file is about 500M.
  The code is following:
  use Bio::ASN1::EntrezGene;
  my $parser = Bio::ASN1::EntrezGene->new('file' => $ARGV[0]);
  my $i = 0;
  while(my $result = $parser->next_seq)
  { last; #something to do there, here use last for test}

  When it goes to the "while" part, it is processing on and on, it does not went out, even I used "last" in the "while" part.
   So I wonder whether it is too slow or the module is not fit for this job, or I did something wrong?

  Thank you!