foreach my $f (@files){
        $query->radio_group(-name=>$f,
                                 -values=>['c','r','t','s'],
                                 -default=>'-');
}

    print $query->submit(-name=>'submit',-value=>'save');