Select Code to Download

package Day;

...
  };
  return bless $self, $class;
}

my @days = map { Day->new($_) } qw(Sun Mon Tue Wed Thur Fri Sat);