package y;
use strict;
use warnings;

my $callpack = caller;
eval <<"EOH";
package $callpack;
use Data::Dumper;
use B::Deparse;
use Devel::Peek;
# other modules...
EOH