Select Code to Download

if($ENV{'REQUEST_METHOD'} eq 'GET') { $query=$ENV{'QUERY_STRING'} }
elsif($ENV{'REQUEST_METHOD'} eq 'POST') {  sysread STDIN,$query,$ENV{'
+CONTENT_LENGTH'} }
else { print 'Unsupport method: '.$ENV{'REQUEST_METHOD'}.'!!!'; }

use CGI;

...
    </table>
END
}