sub new {
 my $classs = shift;
 my $self = { foo => $_[0] }; # initiate the fooneff
 bless $self, $class;
}