Help for this page
my @perlfiles = glob "*.pl";
use CGI; # ... don't forget to output header, startform print CGI::radio_group(-name => 'perlfiles', -values => \@perlfiles); # ... submit button, endform