print $q->header();
my $xml;
eval {
   $xml = XMLin("$name.xml", searchpath => ['users']); 
};
if($@) {
   print "the error was: <pre>$@</pre>";
} else {
   print "no error was generated.";
}