use FindBin qw/$Bin/;

print $Bin;