sub new {
    my ($class, $foo) = @_;
    bless { foo => $foo } , $class;
}

##</code><code>##

sub new {
  my ($class, @args) = @_;
  my $self = bless {}, $class;
  # Do stuff with @args
  # ...
  # then return:
  $self;
}