eval { hacker Perl another Just $,=$"}; eval { Just another Perl hacker }; package another ;sub Just {print qw; Perl hacker ;} package hacker ;sub Perl {print qw; Just another ;,''}