sub test
{
        test2("Hola Mundo");
 
}
 
sub test2
{
 #my ($self,$var1,$var2) = @_;
        #my ($var1,$var2) = @_;
        my ($var1) = @_;
        #print $self;
        print $var1;
        print "Mayra";
        #print $var2;    
}