package Stats;
use strict;
use warnings;
use Carp qw/croak/;

sub new {
  ref (my $class = shift) && croak 'class name needed in constructor';
  my $self = {@_};
  bless $self, $class;
}

sub alive {
  my $self = shift;
  for (my ($k, $v) = each(%$self) ) {
    print "$k has the value $v\n";
  }
}
1;