Select Code to Download

 use CGI qw(-utf-8 :all *table);
use LWP::Simple qw(get);
use URI;
...
print submit({-name=>'submit',
        -value=>'Submit'}), "\n";
print end_form, end_html

<?xml version="1.0" encoding="UTF-8"?>
<result>
...
</hit>
</hits>
</result>