package Foo;

sub new { 
  my $class = shift;
  return bless { @_ }, $class;
}

sub fribble { 
  my $class = shift;
  return bless { @_ }, $class;
}