A sample code for parsing KEGG Pathway from KGML
#!/usr/bin/perl
use local::lib;
use utf8;
use Bio::Database::KEGG::Path;
use Data::Dumper;
# input file (KGML file)
my $file = shift;
# parse the pathway info
$kegg = Bio::Database::KEGG::Path->new();
my $data = $kegg->fetch($file);
print Dumper($data);