use FindBin;

print $FindBin::RealBin,"\n";