#!/usr/bin/perl
 
sub test()
{
        test2("Hola Mundo");
 
}
 
sub test2()
{
 my ($var1,$var2) = @_;
        print $var1;
        print $var2;    
}