package Foo;

sub new {
  my $pkg = shift;
  my %self = @_;
  my $self = bless \%self, $pkg;
  # do stuff to $self (now a __PACKAGE__)
  return $self;
}

1;