package Day;

sub new {
  my ($class,$dayname) = @_;
  my $self = { 
      day => $dayname
  };
  return bless $self, $class;
}