use FindBin;
use Cwd;

print Cwd::getcwd," -- ",$FindBin::RealBin,"\n<br />";