Select Code to Download

use LWP::UserAgent;
$ua = new LWP::UserAgent;
...
    print "Error\n";
}

use CGI;

...
print $q->header;
@name = $q->param('keywords');
print map("$_\n",@name);