sub test
{
	my $self=shift;
	$self->test2("Hola Mundo");

}

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