package Htmlz;

sub ah{ 
 print 'an experiment' 
}

package Effect;

print 'im conducting ', Htmlz::ah;
-------
an experimentim  conducting1  

##</code><code>##

package Htmlz;

sub ah{
 my $fizix = 'an experiment' 
}

package Effect;

print 'im conducting ', Htmlz::ah;
--------
im conducting an experiment

##</code><code>##

package Htmlz;

sub ah{
 wantarray? 
  my @givearr = print 'anexperiment'
 :
  my $fizix = ' kerpow!'
}

package Effect;

print 'im conducting ', Htmlz::ah;
-------
anexperimentim  conducting kerpow!  

##</code><code>##

package Htmlz;

sub ah{
 my $p = my $htmlparagraphelement = shift;
 wantarray ? 
  my @givearr = print '<',$p,'>'
 :
  my $fizix = '</'.$p.'>'
}

package Effect;

print 'im conducting kerpow! an experiment', Htmlz::ah('p'); #pass p
-------
<p>im conducting kerpow! an experiment</p>