use Devel::TraceCalls { Subs => [ qw! system ! ] };

##</code><code>##

Subroutine main::system not defined
CHECK failed--call queue aborted.
##</code><code>##

BEGIN{
    use Sub::Prepend 'prepend';
    BEGIN {
        for my $name( qw[ system  ] ){
            prepend "$name" => sub{_logzy($name,@_)};
        }  
    }
}