my $deparse = B::Deparse->new;
 print dumper $deparse->coderef2text($func);

##</code><code>##

        $VAR1 = '{
    package Spin::Command::spin;
    run(q[export MYVAR=\'(R)?ex\']);
    run(\'uname -a\');
    run(q[echo \'Running: \' $MYVAR]);
    run(\'id\');
}';