Is there some reason you can't run the code under the debugger or, even better, use an IDE such as Komodo? You can require the module instead of useing it so you can debug the load process.

But really, you need to untaint $RealBin. Something like:

BEGIN
    {
    use FindBin qw($RealBin);

    my ($cleanPath) = $RealBin =~ m/(some sane path match here)/;
    use lib $FindBin::Bin;
    }
[download]