/tmp> perl -wlT
#!/usr/bin/perl -T
use FindBin ();
print $FindBin::Bin;
^D
/tmp

/tmp> perl -v

This is perl, v5.8.0 built for i586-linux-thread-multi
[...]