Select Code to Download

# untested
sub new {
    my $class= shift;
...
      qw(roundnum room judge type code contestants)};
    bless $self, $class;
}