use B::Deparse;
  
  my $deparse = B::Deparse->new("-s");
  $body = $deparse->coderef2text(\&func);
    
  print "$body\n" ;
  
  sub func {
    if (0) { print "null\n" ;}
    print "aaa \" $var bbb\n" ;
    return( 'foo' ) ;
  }