eval("use XML::Simple 'XMLin'"); # required xml parser
if($@){&install_xml_simple(); exit}

sub install_xml_simple
{
print header; print qq~Install 
<a href='http://search.cpan.org/search?dist=XML-Simple'>XML::Simple</a>~; 
}