$closure= maker( \%hashToUse ); $closure->(); $obj= Package->new( \%hashToUse ); $obj->Display(); use Package qw( setVar printVar ); setVar( %hashToUse ); printVar(); use Package qw( %Template ); $Template{var}= \%hashToUse; print $Template{output}; my $Print; use Package ( \$Print, \%hashToUse ); $Print->(); tie $output, "Package", \%hashToUse; print $output; tie \*STDOUT, "Package", \%hashToUse; print;