$ nm -D /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi/auto/DBI/DBI.so | grep PL_tainting
                 U PL_tainting