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 -------
im conducting kerpow! an experiment