use strict;
use warnings;
use B::Deparse;

sub test {
   use set my $y =666;
   print $y;
}

#test();

print B::Deparse->new()->coderef2text(\&test);