my $s = sub { my $k = shift; return $k;};
use B::Deparse;
my $deparse = B::Deparse->new("-p", "-sC");
print  $deparse->coderef2text($s);