use FindBin qw( $RealBin );
use lib $RealBin;
...
my $dir = $RealBin;