use FindBin;
print $FindBin::Bin;