use FindBin qw($Bin);

print $Bin;