===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libtest-diaginc-perl-0.008/lib/Test/DiagINC.pm-35-    my ($perl) = $^X =~ /(.+)/; # $^X is internal how could it be tainted?!
libtest-diaginc-perl-0.008/lib/Test/DiagINC.pm:36:    `"$perl" -MCwd -le "print getcwd"`;
libtest-diaginc-perl-0.008/lib/Test/DiagINC.pm-37-};
##############################################
libtest-diaginc-perl-0.008/t/leanload.t-22-    unless ( $] < 5.008 ) {
libtest-diaginc-perl-0.008/t/leanload.t:23:        @::B_inc = split /\0/, `$^X t/lib/B_laced_INC_dump.pl`;
libtest-diaginc-perl-0.008/t/leanload.t-24-    }
##############################################
libtest-diaginc-perl-0.008/t/taint.t-17-# we don't want to have the user deal with that
libtest-diaginc-perl-0.008/t/taint.t:18:system( $^X => -T => -e => 'use warnings; use strict; exit 0' );
libtest-diaginc-perl-0.008/t/taint.t-19-if ($?) {