sub new()
{
        my $self={};
        $self->{FORM_VAR}=undef;
        bless($self);
        return $self;
}
##</code><code>##

sub new {
  my $class = shift;
  my $self = {};
  # some initialisation
  bless($self, $class);
  return $self;
}

##</code><code>##

my $obj = main->new();