FindBin attempts to determine the full name the script being executed by Perl.

Avoid FindBin. File::Spec's rel2abs($0) is more accurate, and less wasteful.

Please stop putting your entire posts in code tags. It makes it harder to read. I'm sure the janitors would rather avoid having to reformat your posts.