package Htmlz;

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

package Effect;

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