#!/usr/bin/perl -w
sub new()
{
        my $self={};
        $self->{FORM_VAR}=undef;
        bless($self);
        return $self->{FORM_VAR};
}
sub name()
{
   $self->{FORM_VAR}=shift;
   print "Using the constructor\n\n\n";
   return $self->{FORM_VAR};
}
                                                                                                                               
$obj=main->new();
$var=$obj->name("KALAI");
print "Here ::: $var\n";