A sample code for parsing KEGG Pathway from KGML

gistfile1.pl

#!/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);