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