package Stuff;
 
  sub new {
    my $class = shift;
    my %args  = @_;
    bless {
      fooAttr => $args{foo},
      barAttr => $args{bar},
    }, $class;
  }

  1;