use B 'main_root'; use B::Deparse; my $deparse = B::Deparse->new(); print $deparse->( main_root, 0 );