use Scalar::Util 'tainted';
print tainted($_), " $_\n" for @INC;

eval {
    require DebugApp;
};
warn $@ if $@;