<% $txt %> <%INIT> use My::Module; My::Module->import(qw(testsub)); my $txt = testsub();