#!/usr/bin/perl
package ParantClass;
sub new
{
my $self = {};
$self->{Parant_Var1}=undef;
$self->{Parant_Var2}=undef;
bless($self);
return $self;
}

sub UseParant
{
        my $self = shift;
        if(@_)
        {
                $self->{Parant_Var1}=shift;
                $self->{Parant_Var2}=shift;
                my $SentToChild1=$self->{Parant_Var1};
                my $SendToChild2=$self->{Parant_Var2};
                $SendToChild1=$sendToChild1+500;
                $SendToChild2=$sendToChild2+"1";
                print "I Entered in to the Parant Class Method ::: UseParant :::$SentToChild1  and $SentToChild2 are Going to Chid Class So Take Care of Data\n\n";
                push(@GoesChild,$sendToChild1);
                push(@GoesChild,$sendToChild2);
        }
        return @GoesChild1;
}
return 1;