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>