sub a_moduser {
        my $user = shift;
        my $html;
[...]
        $html  = '<form action="' . $$config{selfpath} . 'method="post
+">';    
        find(
          sub {
           [...]
           $html .= '<td><input type="radio" name="base_dir" value="' . $_ . '"></td>';
           [...]
         },
      $$config{base_dir});
[...]
}