Select Code to Download

eval("use XML::Simple 'XMLin'"); # required xml parser
if($@){&install_xml_simple(); exit}
...
print header; print qq~Install 
<a href='http://search.cpan.org/search?dist=XML-Simple'>XML::Simple</a
+>~; 
}

my$trade = 0;
eval("use Compress::Zlib"); 
unless($@){$trade = 1} # if installed enable export/import

use vars qw($xpdat1 $dat1); 
my($xpdata,$data,$md,$nodat) = 0; # vars for next block
...
     }
else{ $nodat = 1 }