my @perlfiles = glob "*.pl";

##</code><code>##

use CGI;
# ... don't forget to output header, startform
print CGI::radio_group(-name => 'perlfiles', -values => \@perlfiles);
# ... submit button, endform