# no arg crash bug
use B::Concise;

sub callmainsub {
&main;    
}
sub main {
  fork;
}
my $walker = B::Concise::compile('-src','-exec', *callmainsub{CODE});
$walker->();
callmainsub();