Much easier to put all the params into a hash then you don't have to pass around loads of variables.

my $sr;
foreach my $str (qw(name words plain topic textcolor)) {
    $sr->{$str} =$q->param($str);  
}
[download]

You can also use this loop to call some sort of sanitise/decode function for each param