package CoolObject;
sub new {
  my $class = shift;
  my $self = { name => 'new' }, $class;
  $self->loaddata() or die 'Error loading data';
  return $self;