use FindBin ();
print $FindBin::RealBin;