Select Code to Download

use CGI;
use List::Util qw(first);
...
if (first { $_ eq 'wsdl' } $q->keywords}) {
    ...    
}