sub a_moduser {
        our $user = shift;
        our $html;
[...]
        $html  = '<form action="' . $$config{selfpath} . 'method="post">';    
        find(\&wanted, $$config{base_dir});
[...]
}

sub wanted {
[...]
    $html .= '<td><input type="radio" name="base_dir" value="' . $_ . '"></td>';
[...]
}