XML::Smart Parser in Perl

I'm continuing to work out of an outdated bioinformatics book and I'm attempting to use the XML::Smart Module.

I suspect the module's methods have changed over the course of 6 years and I'm inexperienced with perl to troubleshoot from cpan source. The commented out code proves the ncbi.gov query functions, I'm having trouble with the 'new' method - it's not parsing the XML. What am I doing wrong? Thanks!

Update Specifically I'm running into trouble with parsing and displaying the Id array: my @Id = $results->{eSearchResult}{IdList}{Id}{'@'}; I'm running this on OSX terminal and I don't see any Ids when I run this script. I am seeing the proper Count. Thanks!

#!/usr/local/bin/perl# use lib "/Users/fogonthedowns/myperllib";# use LWP::Simple;use XML::Smart;use strict;#Set base URL for all eutilsmy $utils = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils";my $db = "Pubmed";my $query ="Cancer+Prostate";my $retmax = 10;my $esearch = "$utils/esearch.fcgi?" . "db=$db&retmax=$retmax&term=";# my $esearch_result = get($esearch.$query);# print "ESEARCH RESULT: $esearch_result\n";# print "Using Query: \n$esearch$query\n";# print "hello world\n";my $results = XML::Smart->new($esearch.$query,"XML::Parser");my $count = $results->{eSearchResult}{Count};my @Id = $results->{eSearchResult}{IdList}{Id}{'@'};my $all_Id = join("\n", @Id);print "Count = $count\n";print "$all_Id\n";