#!/usr/bin/perl

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

sub myfunc
{
    print "Hello @_\n";
    return 42
}

my $tricky = \&myfunc;

my $deparse = B::Deparse->new();
my $body = $deparse->coderef2text($tricky);

print "$body\n";


##</code><code>##

{
    use warnings;
    use strict 'refs';
    print "Hello @_\n";
    return 42;
}