barbarasueseal.com barbarasueseal.com ... ##

##

use XML::Simple;
my($xmlstring)=<>;
my($xmlObj)=XML::Simple->new(noattr=>1);
my($dataref)=$xmlObj->XMLin($xmlstring);

##

##

my($xmlstring)=$r->param('xmlString');

##

##

Can't use string (" barba") as a symbol ref while "strict
refs" in use at /usr/local/lib/perl5/site_perl/5.6.1/i586
linux/XML/Parser/Expat.pm line 456. 

##

##

      eval {
        $ioref = *{$arg}{IO};
      };
      undef $@;