Single allele AND Benign familial neonatal seizures 1

current Single allele AND Benign familial neonatal seizures 1 ##

##

#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;
use Data::Dumper;

my $twig= XML::Twig::XPath->new( 
                twig_handlers => { ClinVarSet => \&ClinVar },
				pretty_print => 'indented' 
                       );                        

$twig->parsefile($file);
$twig->dispose;


sub ClinVar {
  my( $twig, $Clin)= @_;     
  my $ClinVarSetID  = $Clin->{'att'}->{'ID'};    
  my $status = $Clin->first_child('RecordStatus')->text;
  my $Accession = $Clin->findvalue('./ReferenceClinVarAssertion/ClinVarAccession[@Acc]');
  
 print "ID: $ClinVarSetID\tStatus: $status\tAccession: $Accession\n";
 
}