Perl Module problem

I have used some code that retrieve XML data, it works fine.
When I try and use a perl module to do the job it doesn't return any values
For a test I coded
package My::Service;
#use Pod::WSDL;
use CGI;
use XML::Smart;
use strict;
our (@ipData, $XML, $site, $sitename);
my @ipData;
my $XML = XML::Smart->new('http://www.perlmonks.org/index.pl?node_id=16046') ;
my $xmlData = $XML->{XPINFO}{INFO};
my $site = $XML->{XPINFO}{INFO}{site};
my $sitename = $XML->{XPINFO}{INFO}{sitename};
my $style = $XML->{XPINFO}{INFO}{style};
my $gentimeGMT = $XML->{XPINFO}{INFO}{gentimeGMT};
my $min_poll_seconds = $XML->{XPINFO}{INFO}{min_poll_seconds};
my $foruser = $XML->{XPINFO}{INFO}{foruser};
my $id = $XML->{XPINFO}{INFO}{id};
my $xp = $XML->{XPINFO}{XP}{xp};
my $level = $XML->{XPINFO}{XP}{level};
my $leveltitle = $XML->{XPINFO}{XP}{leveltitle};
my $xp2nextlevel = $XML->{XPINFO}{XP}{xp2nextlevel};
my $votesleft = $XML->{XPINFO}{XP}{votesleft};

#$site = "text";

sub ipLocation {

return $sitename;
}
1;

I the first cgi file it returns all the values read from the XML output fine.  When I code the perl module and get the function to return the value it does nothing.  However, if I assign the variable
say $sitename="site" at the top then it the perl file accessing the module will print "site" .  Which leaves me with the assumption that
the XML parser is not running properly in the custom module, or I have something missing.  Any ideas on how to get the variables to assign to the xml tags would be great.  ThanksStart Free Trial