use Find::Bin;
print $FindBin::Bin;